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GET NEXT CHARACTER(S) 
ate action routin 
a 
T 


PUT CHARACTER AND watt FOR INTERRUPT 
FOR =fHAR - FORMA : Bays Ay OUT 
peaust CURSOR = Inc and set wrap if needed 
MAT-LOCAL = FORMAT CH HARA ACTER "FOR 0 UTPUT 
CAARACTER OUTPUT FORMAT ecrlon ROUTINES 
BACKSPACE = goutout a@ backspace 
CARRIAGE = format a carriage return 
CTRLZ = output control-Z 
ESCAPE = format an escape character 
LINEFEED = format a line feed 
TAB = Output 4 so, 
VTAB, FORM = output af vertical tab, or form feed 
DISPATCHER SERVICE R 
BACKSPACING = OUTPUT N vaMeespaces 
CURSOROVRFLOW - insert newline to handle end of Line 
FOL SEEN = handle end of Line condition 
FILLING = continue outputting fill characters 
MULT IECHOING = Continue outputting multiecho sequence 
SENDLINEFEED - output a line feed 
ESCA be SEQUENCE PARSING SERVICES 
ESCSYNTAX == ae fia: SEQUENCE SYN 
MOVEREADATA = MOVE CHARACTER FROM TYPEANEAD TO READ BUFFER 
MOVEREADATA SERVICE ROUT i NES 
Specail input character dispatcher 
pelt ty eanhead character os tren routines 
EDITREAD = READ EDITING SIATE 
Read eth routines 


sall 
READ ith * VERIFICATION 
READ VERIFY ESCAPE TERMINATOR ROUTINE 
End of module 
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v04-001 -SEP=-19 
00 | ola Tue TTYCHAR - T i i h i 
:MIR00O1 Me B oTSTLG [Tyee and, erminal driver character output routine 
0900 : SeRRAHeeeetererererteeeeerereereneeeenetenteeeeeereeeeeneeeeererereeeeereeeee 
7* 
009 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
00 3* DIGITAL EQUIPMENT CORPORATION," MAYNARD. MASSACHUSETTS. a 
it 3 :* ALL RIGHTS RESERVED . 
o ® 
0000 10 ;* THIS le ‘aeche fs FURNISHED UNDER A LICENSE AND MAY BE USED AND gt * 
0000 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
4 \§ 3* INCLUSION OF rue ABOVE SV yguthod NOTICE. THIS Sof Tw WARE OR ANY OTHER * 
000 135 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
0000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
obs i :* TRANSFERRED. * 
Py ® 
0000 17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE © 
0000 18 ;* AN SHOULD NOT BE “ONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
itt i :* CORPORATION. + 
3 ® 
0000 $3 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 $§ :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 2 
3 a 
0900 a5 : T enindiaahiedidaiai pneniadibuiinniaineeetiinterddiinmessiaaainaeenimiaen 
0000 57 i+s 
444 29 3; Facility: 
9000 0; : VAX/VMS TERMINAL DRIVER 
9000 i : ABSTRACT: 
44 3 ; THIS MODULE CONTAINS ROUTINES USED FOR THE OUTPUT OF CHARACTERS. 
Bop 36 : settee This module never destroys the contents of RO etere 
9000 38 > AUTHOR: 
9000 40 R.HEINEN 11-AUG-1976 
4 4g : : Revision history: 
3M1R0001 4 4 V04-001 MIRO001 Michael I. Rosenblum iy ribo 
sM1ROOC1 0 § $ Fix problem with Xon getting sent when a read with 0 timeout 
aie 09 73 4% completed with no charcters 
: 00 44: V03-046 MIROI424 Michael _I. Rosenblum 16-Jun-1984 
00 45 ; Fix bug with read with 0 timeout that creates the typeahead 
re ; buffer, reported in gar 1424. 
0 48 ; V03-045 MIRO4SO Michael I. Rosenblum 27=JUN-1984 
0 4 ; pene the port bit pc nocrif set the state skiplf 
3 ie : ix bug i in escape infroducer code that camen it not to 
1 3 Ad ze csi. 
80 : : V03-044 MIRO400 Michael I. Rosenblum 10-Apr-1984 
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960 ¢ : Filter null characters from escape sequences. 
99 ; : V03=043 MI1RO390 Michael I. Rosenblum 04-Apr-1984 
0 : : Make the exit string echo thru the tables vector. 
099 8 : V03-042 MIRO370 Michael I. Rosenblum 20-Mar-1984 
60 ; Fix problems with tabs to the left of the curent position, 
Boop 61 ; Lines that wrap in either the prompt or initial string. 
00 6¢ ; Add port control word modifier to stop free Linefeeds 
8 $7 : After typed <CR>. 
0 0 65 : V03-042 M1RO310 Michael I. Rosenblum 07-Feb-1984 
66 ; Fix bugs. 
0000 67; Noformat reads shouldn't wrap. 
0000 68 ; Ignore SKIPCRLF and GD TREAD if we are wrapping. 
4 69 ; Don't change esc to $ if EDITREAD is set. 
000 rm é Move to beginning of Line should rewrite the whole Line 
44 71 ; if the origional cursor position was non-zero. 
000 ie; 3 Read nofltr should obey uppercase rules. 
0000 73 3 Passall should not imp y termnoecho. 
0000 74; Fix delete in left justified read verify noecho fields 
464 Ff 3 to not echo. 
9009 77: V03-041 MIRO300 Michael I. Rosenblum 30-Jan-1924 
44 A 3 Make the uparrow key be command recall. 
0000 80: V03-040 M1R0100 Michael I. Rosenblum 24-0c t-1983 
8000 Be : ota bug that would cause characters to be echoed in no-echo 
0000 F : 
0000 Ba 5 V03-039 MIRO084 Michael I. Rosenblum 25-Aug-1983 
0000 $2 : Fix problem with torainet ing a right justified numeric 
8008 g¢ 3 auto-tab field in read verify. 
0000 88 : v03-038 M1R0082 Michael I. Rosenblum 02-Aug-1983 
0000 9; Fix bug in recall logic that did not force a return before 
i 4 ay ; the recall was done. Fix bug in delete after wrap logic. 
0099 8692; V03-037 MIRO081 Michael I. Rosenblum 01-Aug-1983 
8000 37 : Remove $Sbrddef call (obsoleted). 
0000 «95: V03-036 MIRO080 Michael I. Rosenblum 28-Jul-1983 
0000 3 : Reposition code in the module. 
$08 98 : v03-035 M1RO070 Michael i. Rosenblum 13-Jul-1983 
it 99 ; Fix bug that would cause an escape sequence at the beginning 
100 ; of the Line to return invalid data if deleted. 
0 101 ; Make check in MOVEREADATA for buffer full condition at 
0 1 § : the top of the 4908 to make sure that the users buffer 
103 ; can not be overfilled if the initial string fills the 
! : 3 data buffer. 
1 6 ; V03-034 MIR0053 Michael I. Rosenbium 27-Jun-1983 
107 ; Fix bug in ESCAPE_TAB where it would pass the address 
198 3 into the ESCINIT foutine rather than the character 
110 : v03-033 MIROOS1 Michael I. Rosenblum 23-Jun-1983 
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“SEP=19 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 v¢ 
Fix bug, caused when escape sequences are UNUSED. 

Cause $s laceot to exit to movecursor on hard-copy terminals. 

Make routines that checked CSI and ESC call a common routine. 

Fix bug that would cause writes on non-hardcopy terminals 

To use the single character code path following the wrap point. 


v03-032 MIROOS3 Michael I. Rosenblum 10-May-1983 
Fix bug in clear to end of Line emulation. 
v03-031 MIROOS2 Michael I. Rosenblum 27-May-1983 


Add delete character to read very iy. make read verify 
accept fill characters in the initial string and as 
data and display the clear character 

Add software emulation of clear to ond of Line for non- 
ansi terminals. 


v03-030 M1IROOSO Michael I. Rosenblum 11-May-1983 
Remove code that specail cased broadcasts. 
V03-029 MIROO49 Michael I. Rosenblum 06-May-1983 
Add code to handle wrapping correctly. 
v03-028 peers’ Michael I. Rosenblum 29-Apr-1983 
ix bug in the new passall code path 
v03-027 MIROO30 Michael I. Rosenblum 30-Mar-1983 


Integrate TTRDVFY with the terminal driver, code included 
in this module 


V03-026 MIROO29 Michael I. Rosenblum 22-Mar-1983 
Add code for innertiovaeaiotin mode. 

v03-025 RKS0025 RICK SPITZ 19-MAR-1983 
Change references of UCBSL_TT_DEVDP1 TO UCBSL _DEVDEPNDZ 

V03-024 MIR6026 Michael I, Rosenblum 11-Mar-1983 
Change recall to not terminate a small read when a recall 
is done from a zi recall buffer. 

V03-023 M1R2026 chael I. Rosenblum 07-Mar-1983 
. bug in EDITREAS prompt echoing when there is no prompt 
© ech 

V03-022 MIR1026 Michael I. Rosenblum 11-Mar-1983 
Add STRMDEF to the List of required symbol definitions 

v03-021 MIROO26 Michael I. Rosenblum 10-F eb-1983 
Add code to TE input Line editing. 

v03-020 mjnodes Michael I. Rosenblum 18-Feb-1983 


ix bug in carriage control logic that caused a carriage return 
fn a@ prompted read to get a free Linefeed. 


v03-019 MIROO24 Michael I. R agn a 28-Jan-1983 
Change code to reflect redefinition of the read packet. 


v03-018 MIROO17 Michael I. Rosenblum 05-Jan-1983 
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Add powerfail bit to the unit state vector table to remove 
powerfail check for each character. Restructure powerfail 
code to fal! into a gonsen code path in TTYSUB. Change 
return status of TTYSGETNEXTCHAR to include a byte value 

an che ee this will move the information from the condition 
code Ss. 


v03-017 MIROO16 Michael I. Rosenblum 29-Dec-1982 
Replace time calculation code with TIMSET macro call 
This change will allow us to change the time calculation 
aljorhythm yee’? if necessary, and will also allow 
us to globaly turn on and off the time calculations. 


v03-016 MIROO15 Michael I. Rosenblum 22-Dec-1982 
change all calls to the terminal port drivers to refer 
te t o ieee acket routines. Remove DMA code from the 
class driver. 


Oooo 


OOoOoooooooooooooooo 


OOooooocoo 
DOOOOooooooosoSo 


V03-015 M1ROO13 Michael I. Rosenblum 16-Dec-1982 
Fix up refferences to new ucb structure 
v03-014 MIROO11 Michael I. Rosenblum 18-Nov-1982 


Change MULTIECHO to take a count in UCB$s_TT_MULTILEN and 
an address in UCBSL_TT_MULTI, illLiminate the code for 
zero terminated mulfiecho strings. 

Change STRIMULTI to take a counted string and convert 

t into a length and address. 
Add STRTMULTI_1 to take the place of STRTMULTI. 
Add code to make Control-R and Control-U look prety on 
ANSI crt terminals. 
poeres CONTROLR to EDITREAD also cnange the internals of 
OLR to use MULTIECHO. 
Change the aeons of the CTRLR bit to indicate that the 
orenps and data string from a read buffer are being clocked 
out t multiecho, this is the onty use for CTRLR. 
Add SKIPCRLF to indicate that a linefeed following a <CR> 
in the beginn ng of the prompt string is to be skiped. 
Remove HOLDSCREEN code. 


v03-013 MIROO12 Michael I. Rosenblum 19-Nov-1982 
Fix bug that caused exception when a read was posted 
that caused a create of the typeahead buffer. 


v03-012 MIROO10 Michael I. Rosenblum 09-Nov-1982 
Move the address : the terminator mask, and the length 
of the prompt str ng from the IRP into the terminal read 
acket. Also move the count of the characters in the 
uffer from the UCB into the terminal kyepenese buffer packet. 
Make backspace look Like delete (without beeing delete) 
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vO3-011 RKS0011 RICK SPITZ 19-0CT-1982 
4! INSURE THAT R5 IS PRESERVED WHEN DMA FORK TAKEN 
00¢ v03-009 RKS0010 RICK SPITZ 23-SEP-1982 
JU 
fi 


WO O00 O00 09000009 09090909 09 09 SI NI NI NINN NNO OO 
PVPS -*§ OOO NAN EW OC DWNAUES WIN OOO 


CHANGE LOGIC IN FORMAT TO INSURE THAT HARDCOPY TERMINALS 
SET TO NO WRAP DO NOT OUTPUT DATA BEYOND LINE WIDTH 
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CORRECT PROBLEM WITH XON LOGIC TO INSURE THAT OVERFLOW 
ERRORS ARE ALWAYS REPORTED 


v03-008 # n0003 wigheet I. Rosenblum lenge vee 
F ug where multi escape sequences in a TIRDVFY prompt 
Would not work. 


v03-007 KDM000 


¢ Kathleen D. Morse 28-Jun-1982 
Added S$SSDEF. 
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Declarations 
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Cc 
rom 
toa 
i 
a 
ra 
t 


vasa jOReeeebGdate RYMESN aun Ata SABRES ALAESES PAGAL MESRAPHT Manon hc 
S ~SBTTL TTYSGETNEXTCHAR = GET NEXT CHARACTER(S) 

™ TTYSGETNEXTCHAR - GET NEXT CHARACTER(S) 

; FUNCTIONAL DESCRIPTION: 


: THIS ROUTINE RETURNS WITH THE NEXT CHARACTER(S) TO BE OUTPUT ON THE UNIT. 


+ INPUTS: 
RS = UCB ADDRESS 
; OUTPUTS: 
RO = ALWAYS PRESERVED!! 
R3 = 0 AND CC = ZERO = NO CHARACTER TO OUTPUT 
CHAR AND CC = PLUS = SINGLE CHARACTER TO OUTPUT 
ADDRESS AND CC = NEG = BURST (R2 = LENGTH 
(ADDRESS AND LENGTH ALSO IN UCB) 


RS = UCB ADDRESS 
UCBSB_TT_OUTYPE = -1 BIRST 
ADDRESS IN R3 AND UCBSL_TT_OUTADR 
orth IN R2 AND UCBSW_TT_OUTLEN 
9 NO CHARACTER TO OUTPUT 
1 SINGLE CHARACTER TO OUTPUT IN R3 


OO ©0909 09.69 09 09 09 09 09 09 SI NI NI NINN NINN NIOA AAA 


FE SSS SOR SSN UN Un oe we 


— ° Bete Se Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Ge Se Se Ge Se Sete 


sisesematay ate 
MOVAB UCBSO_ TT_STATE(RS),R2 ; ADDRESS STATE OF UNIT 


96 | GET CURRENT STATE OF THE OUTPUT 


52 0088 (5) 9 


0 
ao 


05 


0 
b008 98 GETNEXTCHAR: : INTERNAL ENTRY 
00000080 af d1 0005 299 CMPL &#TTYSM_ST_WRITE,(R2) |; TRY WRITING GENERAL CASE FIRST 
, 2 oC 35 BEQL WRITING : IF EQL THEN GO 
00001000 8F 1 OE 301 CMPL  #TTYSM_ST_READ, (R2) > TRY READING GENERAL CASE NEXT 
12 13 3 BNEQ 108 ; NO, GO TO 10$ 
0513 °3 17 Pie RW MOVEREADATA > IF EQL THEN 60 
62 OD 90 EA 1A 5 FFS #0, #@TTYS$V_ST_READ+1,(R2),R4; GET THE NEXT MOST IMPORTANT OUTPUT STAT 
1F CASE __R4, TYPE=B, <= : ENTER THAT STATE’S ROUTINE 
Ff POWERREST,=- ; go to the power fail code 
1F : INTEXIT,= : CONTROL $ 
1F FILLING.- : FILL IN PROGESS 
1F 19 CURSOROVRE LOW, - : CURSOR OVERFLOW 
1f O31 SENDL INEFEED,- : LINE FEED TO BE INSERTED 
1F 1g BACKSPACING, - ; BACKING UP IN PROGRESS 
1 O31 MUL TIECHOING,- ; MULTI ECHO IS PROGRESS 
1F | O34 WRITING,- : WRITE IN PROGRESS 
1F 315 EOLSEEN,- : EOL SEEN 
1F if EDITREAD,- : READ EDITING OUTPUT STATE 
1 31 ROVERIFY.= : GO TO READ VERIFICATION 
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1f (31 RECALLING - ; RECALLING THE LAST COMMAND 
if MOVEREADATA> : READ IN PROGRESS 
i 1: EXIT iNTERRUPT 
8 5 INTEXIT: : EXIT INTERRUPT 
0108 (5) 94 4 CLRB «UC B$B_TT_OUTYPE(RS) : SET NO RETURN CHARACTER 
05 4 RSB + RETURN 
4 $ : POWERFAIL DETECTED 
4 POWERREST: 
FFBB' 30 4 BSBW RESTART ; CALL THE POWERFAIL RESTART CODE THEN 
FFBD 31 4 : BRW GETNEXTCHAR ; CONTINUE AGAIN 
004 
004 4 INTEXIT1: : EXIT AND RESTORE UCB ADDRESS 
55 BEDO 004 5 POPL RS 
FO 311 «0048 6 INTEXIT 
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v04-001 WRITING = WRITE state action utout mets F bo: 98:38 YT TORVR. BUSSRC TTYCHARO.MAR: 1. (ds 
4D 8 -SBTTL WRITING = WRITE state action routine 
4D 40 ;+¢ 
4p a} ; WRITING = CONTINUE WRIic 1/0 OUTPUT 
4p ‘§ ; FUNCTIONAL DESCRIPTION: 
40 3465 : THIS ROUTINE IS ENTERED WHEN ALL EXTRA OUTPUT IS COMPLETE 
4D 4g ; AND A WRITE OPERATION IS IN PROGRESS. 
4D 48 ; THE NEXT AVAILABLE CHARACTER IS EXTRACTED FROM THE USER BUFFER 
4D 43 3 AND GIVEN TC THE ECHO FORMAT ROUTINES TO OUTPUT CORRECTLY. 
94D 1 : IF CONTROL O HAS STOPPED THE OUTPUT THE OPERATION IS COMPLETED. 
94D 38 : INPUTS: 
040 355: Re = ADDRESS OF THE UNIT STATE VECTOR 
B06 28 : RS = UCB ADDRESS 
8 rt 38 : Implicit inputs: 
O04p 60 : UCBSL_TT_WRTBUF - address of write buffer 
O04p $¢ > OUTPUTS: 
0040 364: Re = ADDRESS OF THE TERMINAL STATE VECTOR 
04D 365: R3 = CHARACTER TO OUTPUT IF ANY 
04D 366: R5 = UCB ADDRESS 
an 
0040 $9 -ENABLE LSB 
004D 0 WRITING: 
54 0004 CS D0 0040 371 MOVL __UCBSL_TT_WRTBUF(RS),R4 ; Get address of buffer block. 
052 37 IF STATE CTRL 6 ; COMPLETE 1/0 OF CONTROL O 
53 1€ A 00 0056 7 MOUL TYSL WB LNEXT(R4) ,R3 3; GET ADDRESS OF NEXT CHARACTER 
20 a6 «6553)—CO1 COOSA 3.7% CMPL HM TTYS$L—WB_END(R4) : ? 
09 «sole 003 75 BGEQU : IF GEQU THEN YES 
006 7 IF STATE <PASALL,WRTALL>,BURST 
0074 31 0066 37 BRO FORMAT : FORMAT FOR OUTPUT 
ae 
$069 O : WRITE 1/0 DONE 
aa 
69 5 50$: : Normal return. 
069 4 IF _NOT STATE <PASALL ,WRTALL>, 
OOFC cS) BS O6F 5 CLRW UCBSu_TT_ CURSOR(RS) 3 AT CONCLUSION OF PASSALL/WRITALL 
OOFF C5) 94 073 $ se CLRB sd UCSB TTLASTC(RS5) : STATE IS UNKNOWN 
01 + B0 ee 8 ; OVW $S$_NORMAL 3; Load success status code into 
28 AG 79 Thys0 _WB MSTATUS(R4) : buffer header. 
06 11 78 0 BRB 70$ : CONTINUE 
th (392 
070 38 : CONTROL O TYPED OR CONTROL Y OR C 
007D 94; 
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v04-001 WRITING = WRITE state action utput ~-SEP-1 1382 Of 8 6:1 § TTDRVR.BUGSRCJTTYCHARO.MAR; 1 fag 
7D 95 
70 89 60$: 3; Control-0. 
0609 8F B60 7D 9 MOVW #SS$_CONTROLO,- ; Load control-0 status code 
28 AG 1 9 TTY$O_WB_STATUS(R4) 3 into buffer header. 
0 9 
0 ; 269 70$: 3; Complete transfer. 
1 AS =6C3) O00 401 SUBL3 ==TTYSL_WB_NEXT(R4),- ; Calculate number of characters 
53 20 AG 88 6 re TTY$L-WB_END(R4) ,R3 3 Not output to terminal. 
cA AG 53 ae oh 4 SUBW R3,TTY$W WB BCNT(R4) : Adjust transfer count. 
FF70° ; BS D 404 BSBw TTYSWRITEDORE : Do I/0 done. 
W YSGETNEXTCHAR 3; Get the next character. 
FF6D 1 009 405 BR TTYSGETNEXTC 
B33 i 
009 408 WRITE_END 
94 409 IF STATE CTRLO,60$ : CONTROL O 
EA 11 0097 410 BRB 70$ ; COMPLETE WITH CURRENT STATUS 
0099 «411 
0099 ie - DISABLE LSB 
0099 «841 


<-— 


TTYCHARO = Terminal driver character out ut anal -JAN-1985 17:29:5 AX/VMAS Macro 11 
v04-001 BURST/STRING = SET UP Sgt PUT FOR B BURST M 236-1382 boi 40538 ET TORVR. BUGSRC Trtnano. MAR; 1 gage (5) 
033 rt P -SBTTL BURST/STRING = SET UP OUTPUT FOR BURST MODE 
$38 ‘i? ; BURST/STRING == SET UP OUTPUT FOR BURST MODE 
4 ‘18 3; FUNCTIONAL DESCRIPTION: 
099 421 ; THIS ROUTINE RETURNS THE ADDRESS AND LENGTH OF THE CURRENT 
099 4 § ; OUTPUT TO THE CALLER. DUETIM IS COMPUTED BASED ON THE LENGTH OF THE 
099 «4 ; OUTPUT. THE CURRENT WRITE POINTERS ARE UPDATED TO REFLECT THE 
B699 : : ; NUMBER OF CHARACTERS INCLUDED IN THE BURST. 
8 99 & § 3; INPUTS 
99 & § = ADDRESS OF NEXT CHARACTER 
0099 «428 ;sx R4 = TWP ADDRESS 
0099 429; RS = UCB ADDRESS 
0099 430; 
0099 431 ; OUTPUTS: 
0099 4 ¢ : 
0099 4 3 R3 = ore ibe OF NEXT CHARACTER 
0099 434; RS = UCB ADDRESS 
0099 435 ; UCBSL_TT OUTADR = ADDRESS OF START OF BURST 
0099 436; UCBSL_TT_OUTLEN = LENGHT OF BURST 
0099 437 ;:-- 
0099 438 BURST: 
20 AS $3 C3 944 439 SUBL3 = R3, TTYSL_WB_END(R4) ,R2 ; COMPUTE LENGTH OF RECORD 
009E 440 
QO9E 441 STR_EXIT: 
52 52 3¢C OO9E 44 MOVZWL 3; CONVERT TO WORD VALUE 
1C AG 52 CO OOA1 44 ADDL RS. + a -WB_NEXT(R4) ; UPDATE NEXT CHARACTER ADDRESS 
0120 C5 52 B60 -O0A5 444 MOVW Re -UC BSN TT “OUTLEN(RS) ; SET GUTPUT SIZE 
O11c C5 53 dO os ree MOVL -UCBSL_TT~ OUTADR(RS ; SET OUTPUT ADDRESS 
OOAF rv, STR_TIMESET: 
OOAF 448 TIMSET R2,R1,LOCKOUTPUT ; COMPUTE THE TIME A. CHARACTER 
00D0 449 ; AND SETUP INTERUPTS 
0108 C5 01 8E 0000 450 MNEGB #1,UCBSB_TT_OUTYPE(RS) s SET GAT IVE cc “"0 SIGNAL 
0005 451 3; STRING OUTPU 
05 0005 452 RSB 
3M1RO001 0006 .1 STOP_NOW: 
00000000'GF 16 00D6 “§ JSB G* INI SBRK 
05 00DC . RSB 
00DD 453 
00DD 454 


<- 
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TTYCHARO - Terminal driver character output routi 8-JAN-1985 17:29:5 AX/VMS Macro v04-00 Page 
v04-001 FORMAT = FORMAT STRING FOR OUTPUT =36= 138? bo 48:38 YT TORVR. BUGSRCJTTYCHARO.MAR; 1 ie 
Oop 639 -SBTTL FORMAT = FORMAT STRING FOR OUTPUT 
ODD 4 8 : FORMAT -= FORMAT STRING FOR OUTPUT 
4 $23 3 FUNCTIONAL DESCRIPTION: 
ODD 461 ; THIS ROUTINE RETURNS | jue ADDRESS AND LENGTH OF A PORTION OF THE 
ODD 196 3 CURRENT FORMATTED OUTPUT STRING TO THE CALL 
ODD 463 ; IF NO SIGNIFICANT OORT TON N OF THE STRING CAN BE FOUND, IT 
ODD 464 ; DEFAULTS TO SINGLE CHARACTER FORMAT MODE . 
ODD 465 ; DUETIM IS CORPUTED BASED ON THE LENGTH OF THE 
ODD 466 ; OUTPUT. THE CURRENT WRITE OPOINTERS are UPDATED TO REFLECT THE 
43 re ; NUMBER OF CHARACTERS INCLUDED IN THE BURST. 
0000 ass : 
Q0ODD 470 ; INPUTS 
00DD 471; = ADDRESS OF UNIT STATE VECTOR 
00DD $8 : R3 = ADDRESS OF NEXT CHARACTER 
00DD (473; R4 = TWP ADDRESS 
OODD 474; RS = UCB ADDRESS 
Q0DD 475; 
00DD 476 ; OUTPUTS 
0ODD 477; 
O0ODD 478; Re = ADDRESS OF UNIT STATE VECTOR 
00DD 479; R3 = ADD DRES : OF NEXT CHARACTER 
00ODD 480; RS = UCB ADDRESS 
OODD 481; UCBSL_TT_ nT = ADDRESS OF START OF BURST 
OODD 482 ; UCBSL-TT“OUTLEN = LENGHT OF BURST 
OODD 483; > 
O0DD 484 ; OR 
OODD 485 ; R3 = NEXT CHARACTER TO OUTPUT 
QO0ODD 48 - 
00DD 487 FORMAT: 
50 dD O0ODD 48 PUSHL RO ; CSR MUST ALWAYS BE PRESERVED 
OODF 489 IF STATE <ESC_O>,FORMAT_X ; IF ESCAPE IN PROGRESS, SPECIAL 
20 Ad 33 c3 Oe 490 SUBL3 RB, TTYSL_ WB NENDTR4) , RO ; CALCULATE LENGTH OF STRING 
05 44 a5 09 €0 OOE8 491 BBS #TTSV_WRAP,UCBSL_DEVDEPEND(RS),3$; IF WE ARE A NO-W 
144405 OC €E0 SED 33 BBS #TTSV~SCOPE ,UCBSC_DEVDEPEND (RS 5 +58: SCOPE THEN OUTPUT P THE MAX IMUM 
42 AS 91 A3 OOF $38 3$: SUBW3 #1 .UCBSW_DEVBUFSIZ(R5) ,~ ; COMPUTE EOL-1 
51 OOFC CS A2 OOF? 496 SUBW2 UCBS$W_TT_CURSOR(R5),R1 ; COMPUTE ROOM TILL EOL-1 
45 1B pore re BLEQU FORMAT_X ; EOL REACHED 
51 51 32 pre re CVTWL =saR1,R1 3 
50 51 D1 0101 500 CMPL R1,RO : OUTPUT SIZE IS AESS OF Two 
03 15 0104 501 BLEQ 108 
51 50 »00 $ 508 5$: MOVL RO,R1 | ; ACTUAL IS LESS 
109 4 10$: 
: 50 63 9A 0109 2 5 MOVZBL (R3),RO ; TEST FIRST CHARACTER 
FO 8F 93 010C $ BITB ost TVSA_C CTR jirvsn. CH_SPEC!TTYSM_CH_C Rost YSM_CH_CTRL3>,- 
0000'CF40 10F . TTYSA_T VpE CROJ 
2— 12 " : BNEQ FORMAT. R 
OE 5B oH 10 PUSHR = #*M<R1_,R2-R3> ; SAVE LENGTH, ADDRESS 
6351 A 011 11 SCANC RI, (RSS W*TTYSA_TYPE,- > SKIP ALL NON SPECIALS 
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a yer character output routi §8=JAN-1985 AX/VMS Macro v04-00 Page 13 
T STRING FOR ourPuT g: SEP=19384 40:93: § TTDRVR.BUGSRCIJTTYCHARO.MAR; 1 . (6) 
3 #<TTYSM_CH_CTRL!TTYSM_CH_SPEC! TTYSM_CH_ CTRL 21 TTYSA CH_CTRL3> 
1? 208 3 ALLOW SINGLE BURST OUTPUT 
15 POPR #°M<R1,R2,R3> : RESTORE LENGTH , ADDRESS 
1g SUBL _——RO,R1 : COMPUTE NUMBER CHARS FOUND 
1 BEQL FORMAT_X : Y 
18 ADDW = R11, UCBSW_TT_CURSOR(RS) ; UPDATE FINAL CURSOR 
1 ; THIS ASSUMES ALL CHARS 
0 3 < SPACE ARE SPECIALS 
1 CLR_STATE <M, .SRIPLE ,URAPD : 
¢ move R1,R ; LENGTH OF STRING TO OUTPUT 
POPL 3 REST ORE | 
524 SUBL3 #1 Re R1 : CALC N 
525 MOVB (R$) R1],UCB$B_TT_LASTC(RS) 3 CASTC is FINAL CHARACTER OUTPUT 
2 § BRw STR_EXIT ; TAKE COMMON STRING EXIT 
528 FORMAT_X 
529 OPL 3 RESTORE 
530 MOVZBL (R3),R3 ; GET CHARACTER 
531 INCL TTY$L_WB_NEXT(R4) ; BUMP NEXT POINTER 
532 BRw FORMAT_CRAR ; HANDLE AS SINGLE 
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oufpur CHARACTER AND Wal gh 982 64:40:19 ETTDRVR. BUGSRCJTTYCHARO.MAR; 1 
~SBTTL OUTPUTANDWAIT = OUTPUT CHARACTER AND WAIT FOR INTERRUPT 

OUTPUTANDWAIT = OUTPUT A CHARACTER AND WAIT INTERRUPT 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED BY THE ip INTERRUPT ROUTINES TO RETURN 


TO THE DEVICE DEPENDENT wy: TO OUTPUT A CHARACTER. THEIR RETURN 
CAUSES THE UNIT TO ENTER A WAIT FOR INTERRUPT STATE. 


INPUTS: 
Re = ADDRESS OF THE at STATE VECTOR 
R35 = ore abone TO OUTPUT 
RS = UCB ADDRESS 

OUTPUTS: 


THE UNIT IS PLACED IN A WAIT FOR INTERRUPT STATE 
AND THE CONDITION Ws , ARE SET TO PLUS INDICATING 
SINGLE CHARACTER IN R 


R5 = UCB ADDRESS 


UTPUTANDWAIT: ; OUTPUT CHARACTER AND WAIT ENTRY 
V R3,UCBSB_TT_LASTC(R5) : SAVE LAST CHARACTER OUTPUT 
OUTPUTANDWAIT1: 


TIMSET 1,,LOCKOUTPUT ; ENABLE THE TIMER WITH A MINIMUM 
OF 1 SECOND AND INTERLOCK THE 

OUTPUT STREAM 

SET THE KIND OF OUTPUT 

AND RETURN WITH CHARACTER 


MOVB #1, UCB$B_TT_OUTYPE(RS) 
RSB 
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CHAR = FORMAT CHA RACTER OR OUTPU 35-SEP-19 


a ko od ad dD 
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~SBTTL FORMAT_CHAR = FORMAT CHARACTER FOR OUTPUT 
‘ -ENABL LSB 
FORMAT_CHAR = FIND PROPER OUTPUT FOR SPECIFIED CHARACTER 
FUNCTIONAL DESCRIPTION: 
THIS ee HL | aa THE SPECIFIED CHARACTER FOR OUTPUT 
ON THE TARGET UNIT. THE at PUT CF THE SEQUENCE IS EITHER 
ime ORIGIONAL CHARACTER OR A STARTUP OF THE car ba Pun LIECHO 
STRING. CURSOR ADJUSTRENT IS ALSO DONE HERE FOR P 
SEE EACH SPECIAL CHARACTER ROUTINE FOR MORE DETAILS ON ECHOING. 
INPUTS: 

Re = ADDRESS OF THE UNIT ae VECTOR 


tee agohe TO TRANSLA 
UCB ADDRESS 


OUTPUTS: 


nS 


ADDRESS OF THE UNIT STATE VECTOR 
cee AsoRESS. OUTPUT NEXT IF ANY 


RSP « Se Se Se Se Se Ge Oe Be Se Be Sse Se Se Ge Ge Se Se Se Sse Sse Se See Se 
+ 


UCB A 
$: IF_NOT_STATE <ESC -0>,OUTPUTANDWAIT: BR IF NOT OUTPUT ESC 
BSBwW ~ ESCSYNTAX-O ; CHECK CHAR AGAINST bse SYNTAX 
BGTR OUTPUTANDGAIT : SYNTAX OK, OUTPUT CHARACTER 
IF _NOT_STATE <RULTI> 88 ; IF MULTIECHOING AND EDITING 
IF “STATE <EDITI NG>, 148 ; DON'T ZERO CURSOR 
8$: CLRW © UCB$W_TT_CURSOR(RS) 3 ZERO CURSOR (COLUMN) POSITION 
10$: BBSC ATYSO. ST_ESC_0,4(R2),.~ ; SEQUENCE ENDED CORRECTLY 
OOUT : CLEAR STATE AND BRANCH ALWAYS 
FORMAT_CHAR: 
IF STATE <PASALL,ESC_O,WRTALL>,5$ ; BR IF FORMAT NOT NEEDED 
CASE = W°TTYSA_ frPetrsi. LIMIT=#1aTTY$V_CH_SPEC, TYPE=B,<- 
7th 
Te 
VTAB,- 
FORM. 
CARRIAGE ,- 
CTRLZ> 


PUSHAB OUTPUTANDWAIT ; SET RETURN PC FOR ADJUST _CURSOR 


; AND FLOW INTO ADJUST_CURSOR 
-DSABL LSB 


TTDRVR.BUGSRCJTTYCHARO.MAR; 1 
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4 04:16:1 f § 
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«SBTTL ADJUST_CURSOR = Increment cursor and set wrap if needed 


ADJUST_CURSOR: : ADJUST CURSOR 
ITB #<TTYSM_CH_CTRL! TTYSM_CH_SPEC! TTYSM_CH_CTRL2!TTYS$M_CH_CTRL3>,- 
W°TTYSA_TYPELR3] 7 TEST FOR SPECIAL 
£0 ~30$ ; SPACING CHARACTER 
INCW UCBSW_TT_CURSOR(RS) + ADJUST 
CMPW = UCBSWTTCURSOR(R5) ,UCBSW_DEVBUFSIZ(R5) ; OVERRUN? 
BGEQU§ 5$ ; VES 
CLR_STATE = ; Set not at newline 
cer <NL,SKIPLF ,WRAP> : clear SKIPLF and WRAP. 
BBS $V_WRAP,UCBSL_DEVDEPEND(R5),10$; BR IF WRAP ENABLED 


att 
25$ ; IF EGL THEN AT END OF LINE AND OK 

BBS att sc : IF SCREEN TERMINAL, CONTINUE 
(SP 


$V_SCOPE, = 
SL“DEVDEPEND(RS) 258 : 
TSTL )+ DO NOT RETURN TO BSB TO DROP 


BRW DROP ; IF_HARDCOPY,DROP CHARACTER 
SET_STATE. CURSOR : SET CURSOR OVERFLOWED 


CMPB #TTYSK_ET_ESCAPE,,TTYSA_CCLISICR3]; IS THIS AN ESCAPE OR CSI 


BNEQ 26$ ; NO THEN DON'T COUNT IT 
TSTL (SP)+ ; DO NOT RETURN TO BSB TO DROP 
BRW ESCAPE :; *** FALL INTO THE ESCAPE CODE 


Setoneataed 


ate 
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~SBTTL FORMAT_LOCAL = FORMAT CHARACTER FOR OUTPUT 


ale | 
Oo 

Ze 
> 
aa 
cS 
owe 


+ 

FORMAT_LOCAL = FIND PROPER OUTPUT FOR SPECIFIED CHARACTER 
FUNCTIONAL DESCRIPTION: 

THIS ge Hs mr, dl THE SPECIFIED CHARACTER FOR OUTPUT 

ON THE TARGET UNIT FOR A NOECHO TERMINAL. THE te OF THE 
SEQUENCE MAY BE THE STARTUP OF THE PROPER MULTIECH 

STRING. Hy te ISE ta’ Votae ADJUSTMENT IS ALSO DONE HRERE FOR PRINTING 
IT IS POSSIBLE FOR THE RESULT TO BE NO OUTPUT. 

SEE EACH SPECIAL CHARACTER ROUTINE FOR MORE DETAILS ON ECHOING. 
INPUTS: 


Re = ADDRESS OF THE UNIT ane VECTOR 
R See abodes TO TRANSLATE 


5 = UCB A 
OUTPUTS: 
R2 = ADDRESS OF THE UNIT STATE VECTOR 
R35 = CHARACTER TO OUTPUT NEXT IF ANY 
RS = UCB ADDRESS 


Bete Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Se G+ Se Se Se Ge Ge Ge Se Gs Sete 
aa 


OOCOCOCOOCOC COCO OOOO OOOOOOOOOOoOOoOO 
a at a a  —  — —  — —) bd ts ts 
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FORMAT_LOCAL: 
CASE WTTYSA ~{YPECRSI, -LIMIT=#1aTTY$V_CH_SPEC, TYPE=B,<- 


FORM 
CARRIAGE,- 
CTRLZ> 


SPECIAL FORMATTING WAS NOT NEEDED = SIMPLY INCREMENT CURSOR 
: FOR THE LOCALLY-ECHOED CHARACTER AND CONTINUE. 


DWWWUMMIUAAMT MMMM MMMM MMMM MMM Mmmm Mmmm mm Mmmm mmm mmm ereneneveevieeyvy 


we ew fo lo folololnlololo) 


ROPIPOFUPONORD es 


Ad =—s-:'10 8S8B ADJUST _CURSOR : ADJUST CURS 
FOFD Ht BRW GE TNEXTCHAR ; GET ANOTHER CHARACTER 
FF44 1 GOOUT- BRW OUTPUTANDWAIT 
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L CHARACTER OUTPUT FORMAT ACTION ROUTINES 
L BACKSPACE = output a backspace 


~_s 
ae 
< 
=0@ 
sig 
= 
on 
z2zT 


Sian < 


oa = OUTPUT A BACKSPACE 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE OUTPUTS A BACKSPACE ON A TERMINAL. 
INPUTS: 
ns ~ ADDRESS OF THE UNIT STATE VECTOR 
RS = UCB ADDRESS 


SN NOOO 


OUTPUTS: 
a OF THE UNIT STATE VECTOR 


ADDRESS OF THE BS/SPACE/BS STRING IF APPROP. 
UCB ADDRESS 


; BACK KSPACE 
DE UCB$W_TT_CURSOR(RS) ; ADJUST HORIZON 
BRwW DUTPUTANBUAT? 3; OUTPUT THE CHARACTER 


SQN 
RNR 2 ee 


oO 
< 


NRO ODNAUE WN" OODVNOUE Wi 
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ormat a carriage return “SEP-1984 04:16:1 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (12) 
: «SBTTL CARRIAGE = format a carriage return 
poe 
f $ 3; CARRIAGE = FORMAT FOR CARRIAGE RETURN 
f : ; FUNCTIONAL DESCRIPTION: 
731 ; THIS ROUTINE SETS UP THE PROPER FILL FOR A CARRIAGE RETURN ON 
f ¢ 3; THE TARGET UNIT. 
7 33 INPUTS: 
f 6 ; a = ADDRESS OF THE UNIT STATE VECTOR 
737 ; R3 = TT 
4 gi ; = UCB ABDRESS 
£40 : ouTpuTs: 
z Re = = ADDRESS OF THE UNIT STATE VECTOR 
744: R5 = UeB ST OGRESS 
745 ;-- 
746 CARRIAGE: : 
74 CLR_STATE <NL> ; SET NOT AT NEW LINE. 
Se CROUTPUT: 
74 IF STATE = ; If in a write state, branch 
750 WRITE,115$ : forward. 
751 IF NOT_STATE = :; If not in a read state, also 
P38 READ,115$ 3 arenen forward. 
75 IF_STATE <MULTI,EDITREAD>, 130$ : character sacha or wrap 
754 MOVL § UCBSL_SVAPTE(RS) .R1 3 GET THE PACKET A DRESS 
755 MOVZWL TTYSW"RB_LINOFF(R1),R4 : GET THE OFFSET TO THIS CHARACTER 
756 MOVAB artysc. a5 HLINCRID CRED TTYSCS RB_LIN(R1); AND MAKE THIS THE NEW 
757 CLRW TTYSW_RB_LINOFF (R1) . rey eel —— 
758 CLRW TTYSW_RB_ LIN REST(R1) JUS Her Ae 1 ARE AT THE END 
759 BBC #TtTys? rete -NOCRLF ,UCBSW_ tt _PRICTLER ),110$;SO JUST ECHO THE CHARACTER 
760 SET_STATE SKIPLF 3; NO FREE L INErERD 
6) BRB 1158 : ELSE DON'T DO THE LINEFEED 
res 130$: IF _NOT_STATE CTRLR,110$ 3 
765 : THE FOLLOWING CODE WILL INSERT A LINEFEED AFTER ANY CARRIAGE RETURN 
£98 3; THAT IS THE LAST CHARACTER IN THE READ PROMPT STRING OR IN THE READ BUFFER 
767 ; ITSELF. ANY <CR> CHARACTERS IN THE PROMPT STRING PRIOR TO THE LAST CHARACTER 
708 3; ARE NOT TOUCHED. 
7 y MOVL UCBSL =pynere (es R1 3; GET THE READ PACKET ADDRESS 
77 MOV2WL TTY$W7RB_P ENR) R4 : GET THE PROMPT LENGTH 
if MOVAB TYSA- “RB- PRMLAY ERAS R4 ; AND THIS IS THE ADDRESS 
7 CMPL yes he “TT “AULTI(R >, Ro : 1S THIS CR PAST END OF Beh 
774 BGEQuU YES THEN FORCE LINEFEED 
775 ; In the te where we ere psending a clear to end of Line sequence (signaled 
ore 3 by SKIPCRLF being fet) 
777 ; we don't want the | separ to show up if tnere is one after a leading 
778 ; <CR>. The case where there is a leading Linefeed is handled by 
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‘i 


798 


799 
00 120$: 
01 DROP: 


749 ; setting SKIPLF in the EDITREAD routine. 


IF NOT suATe ciptecese 115$ ; IF NO LINEFEEDS WANTED THEN 

CLR gras IPCRLF> ; CLEAR NO LINEFEED 

ADOC ATIVE -RB_DATA*+1 ,UCBSL_SVAPTE(R5),.R4; GET THE ADDRESS OF THE 
CAPL YERSL.TT MULTI CRS) LRG ; FIRST CHARACTER a SEE IF THIS IS IT 
BNEQU 15$ ; NO THEN HAND LY 

sei asTATs + alee ; OTHERWISE SKIP THE ASREEED 

BRB 15 ; AND HANDLE NORMALY 

IF STATE <SKIPCRLF>,115$ 

SET_STATE <SENDLF ,SKIPLF> ; SET STATE TO FORCE LF AND SKIP NEXT REAL 9 
CLRW UCBSW_TT_CURSOR(RS) ; RESET HORIZON 

CMPB UCBSB Ht “LASTC(RS), =; F eitousces = _tAst CHAR 


YSC_cR ; A_ CARRIAGE RETURN 
BEQL OR ROP YES OUTPUT * ANOTHER 
MOVB UCBSB_TT_CRFILL(RS), ucesé_ TT Seite eRsys SET UP FILL 


BEQL 1208 : IF EQL THEN OUTPUT 
SET STATE FILL ; OTHERWISE OUTPUT 


OUTPUTANDWAIT 
BRW GE TNEXTCHAR : CONTINUE IN NEXT LOGICAL STATE 


71 
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- Terminal driver char 
CTRLZ = output control- 
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~SBTTL CTRLZ = output control-Z 


;+4 
; CTRLZ = OUTPUT A CONTROL Z BASED ON THE OPERATION 

; FUNCTIONAL DESCRIPTION: 

; IF THE CURRENT OPERATION IS A READ AND THE “Z IS A TERMINATOR THE ECHO “2. 


>>>>rr>r 


; OUTPUTS: 


>>>>Yrrrrrrrrrrrrrr>r 


SOONA MNF WN ("OC OONAUE WO 0 
: e@eee ee oe Sete te te 
o 


ARPOPPOPINPONINN 2 ee 


Boume 


QOoooooooooooo 


AOoowWw 


soown 


R2 = ADDRESS OF THE UNIT STATE VECTOR 
CONTROL 7 
= UCB ADDRESS 


Re > ADDRESS OF THE UNIT STATE VECTOR 
= 
4 = ADDRESS OF THE MULTIECHO STRING FOR CONTROL 7 IF APPROP. 
5 = UCB ADDRESS 
IF_STATE WRITE, 3008 
IF NOT STATE READ 3008 
IF “NOT"S ATE E $ 
MOUL SIN A EOL ITECHO, R4 


BBC aTT2$v 4) a UCBS$L -DEVDEPND2(R5) 299 
SET coe 7 cass wimat DON'T acou THIS *O BE _—ere 


CONTROL 7 
IF THERE IS A WRITE ACTIVE THEN 
HO NO 


MOVAL : QUTPUT THE DECCRT “ONTR 
MOVL they ns ; GET THE ACTUAL STRING ADDRESS 
RW STRTMULT + START OUTPUT 


I 
BRW OUTPUTANDWAIT 
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SCAPE = format an escape character 


SOOQOOOCOOGOOCOOGCOSOOOOOOO OOOO OOOOOOOOOOOOOOOO 


TR FH FH HMMM MMM MM DOO OOOO OAAAOAHAAAAAAOHOAAOAAAAAOAOAAAOOHOO 
WD OWMIMVINVOM ON DOO G BF JOM AMAA AAOAAOIAAAAAAHOHOAOAAOOOOAAAAAOOOO 


> 


SEP-19 TTDORVR .BUGSRC ITT 
33 -SBTTL ESCAPE = format an escape character 


S "Escape = FORMAT A ESCAPE BASED ON OPERATION AND TARGET UNIT 
: FUNCTIONAL DESCRIPTION: 
: THIS ROUTINE FORMATS ESCAPES. 
READ OPERATION: 
A'S IS ECHOED IF THE ESCAPE IS A TERMINATOR. 
; WRITE OPERATION: 
TERMINALS WITH THE CHARAC 


MEWS ODNOAUE WH ("OOO NOULS UO 


OS EE RR Oy re tee a , ad al ek et ek eee 


; THE ESCAPE IS OUTPUT. ON TERISTIC TTSM_ESCAPE, 
: THE REMAINDER OF THE SEQUENCE IS CHECKED FOR SYNTACTIC CORRECTNESS. 
: INPUTS: 
: R2 = ADDRESS OF THE UNIT STATE VECTOR 
: R3 = ESC 
; R5 = UCB ADDRESS 
: OUTPUTS: 
: Re = ADDRESS OF THE UNIT STATE VECTOR 
: R3 = ESCAPE OR ''$'' 
66 R5 = UCB ADDRESS 
868 ESCAPE: : OUTPUT ESCAPE STRING 
9 IF _NOT_STATE EOL,250$ * ALSO IF NOT TERMINATOR 
0 IF “STATE <AULTI WRITE .EDITREAD> 2508; MULTIECHO THEN ASSUME SEQUENCE 
71 MOUZBL #TTYS$C_OOLLAR.R3 3 OTHERWISE ECHO DOLLAR SIGN 
? BSBW ADJUST CURSOR t ADJUST CURSOR 
, BRW OUTPUTANDWAI T : AND OUTPUT 
75 : OUTPUT ESCAPE ON WRITE OR CONTROL R 


77 2508: 
7 BBS #tt2sv ANS] CRT .UCBSL_DEVDEPND2(R5) 255$ : BR IF ANSI TERMINAL 
? IF STATE <ESCAPE>,255$ - 1S THIS ESCAP 

CMPB Os #TT$_VT5X.UCB$B_DEVTYPE(RS) ;VT5X OR VT100 TERMINAL? 

BLEQU $ ; If LEQU, then maybe. 

BRB 60$ , Otherwise, no. 


CAPB 8 


TT$_VT100+32 ,UCBSB_DEVTYPE (RS); 
BGTRU $238 ; 
BRB 608 


If GTRU, then yes. 
; Otherwise. no. 
QUTPUTTING AN ESCAPE SFOUTNCE 
INIT THE ESCAPE SFZUENCE RULES 
RESTORE R1 


SET STATE <ESC_O> 
PUSAL RI 


BSBW ESCINIT 
MOVB R1,UCB$B_TT_e€SC_O(RS) 
POPL R1 


11 
ve 
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v04-001 ESCAPE = format an escape character -SEP-1984 0 TTDRVR.BUGSRCITTYCHARO.MAR; ? (14) vd 


D 895 
3 9 IF _NOT_STATE <MULTI> 3608 : MULT LECHOING AND gEDITING 
" } nat IFSTATE <EDITING>,27 : DON'T ZERO CURSOR 
OOF C c5 8 13 9 "  CLRW UCBSW TT CURSOR(RS) : ZERO CURSOR (COLUMN) POSITION 
FE33 1 0319 900 270$: BRw OUTPUTANBWAIT ; FALL INTO OUTPUT AND WAIT 


4 12 
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TTYCHARO - Terminal dri 5 17:29:5 AX/VAS Macro V04-00 Page 24 
v04=001 LINEFEED = format a Line feed =3p8= 1382 ett eet a YT TORVR. BUGSRCIJTTYCHARO.MAR; 1 i (15) 
' if 4 ¢ ~SBTTL LINEFEED = format a Line feed 
1C 9046 ;+4+4 
1¢ ? 5 ; LINEFEED = FORMAT LINE FEED FOR TARGET UNIT 
iC 3 5 > FUNCTIONAL DESCRIPTION: 
iC 309 ; THIS ROUTINE SETS UP THE PROPER FILL FOR A LINE FEED ON THE TARGET 
0 iC 310 3 UNIT AND ADJUSTS THE CURSOR AND VER Te AL LINE COUNT. 
6 1¢ 1g : INPUTS: 
6 1¢ (914: n = ADDRESS OF THE UNIT STATE VECTOR 
031C 6915; R3 = TTYSC_LF 
O31C 916 ; = UCB ADDRESS 
O31C 917 ; 
O31¢ = 918 ; OUTPUTS: 
O31C «0919: 
031C 920: Re = ADDRESS OF THE UNIT STATE VECTOR 
031C 460921: R3 = TTYSC_LF 
pai 9 ; ; R5 = UCB ADDRESS | 
O31C 9925 j-- 
O31C 924 -ENABLE LSB | 
O31¢ 925 LINEFEED: 
38 04 A2 «OD ES O31¢ 3 6 BBSC #TTYSV_ST_SKIPLF,4(R2),227$; SKIP AND SET OFF SKIP CONDITION 
0381 He : NOTE THAT BECAUSE OF ACBB'S SIGNED BRANCH IT IS NOT APPROPRIATE HERE. | 
0391 980 cFourPuT: | 
OOFC cS)sBS 93 1 931 TSTW  UCBSW_TT_CURSOR(RS) > LINE FEED AT CURSOR O IS NEWLINE 
06 12 6325 93¢ BNEQ 210% ; IF NEQ THEN NO Ni POSSIBLE 
0327-93 SET STATE NL ; SET NEW LINE | 
OOFE CS 96 0328 336 210$: INCE UCB$B_TT_LINE(RS) ; ADJUST VERTICAL COUNT 
OOFE CS 91 OSeF 955 CMPB = UCBSB_TT“LINE(R5) ,UCBSL_BEVDEPEND*3(R5) ; 
Oo or 9838 936 BLssU 2158 : IF USSU THEN NO PAGE CROSS 
OOFE C5) 94 «033879 LRB-~—s—CUCB$B_TT iN (R5) 3 RESET VERTICAL POSITION 
03 938 215$: ft NOT_STATE ORITE ; BR IF NOT WRITE 
54 0004 CS 00 O33F 939 mMOVL ~ UCBSL 1 GRFBUF (RS), R4 : Address current write buffer. 
54 24 A4 DO 0344 940 MOVL ity YSL- manent RG ; Get associated IRP address. 
: ae re 941 BEQL 2208 : Branch if no IRP. 
38 AG BG OOS4A OG INCW IRPSL_MEDIA COUNT LINE 
oF” C3 90 33} 943 2208: MOVB UCBSB-TT TPF ALLCRS) ,UCBSB_TT_FILL(R ); INSERT TO CAUSE FILL 
03 +13 24 944 BEQL 2258 . OUTPUT IF NO FILL NEEDED 
0336 945 SET WSTATE FILL > OUTPUT FILL CHARACTERS | 
FOF3) 31 5 946 258: BRw OUTPUTANDWAIT 
FRAT 31 O53C 967 2278: BRN DROP | 
O35F 94 SOI SABLE LSB. 
| 
| 


TTYCHARO = Terminal driver character output routi -JAN-1985 17:29:5 AX/VMS Macro v04-00 P 5 
v04=001 TAB = Output a tab. . 2 Bon 1382 0090579 UT TORVR. BUGSRC TTYCHARO.MAR: 1.9" (ia 
SF «950 .SBTTL TAB = Output a tab. 
Oe. er 
ar 338 ; TAB = OUTPUT A TAB ON THE TARGET TERMINAL BASED ON CURSOR POSITION 
s 93 : FUNCTIONAL DESCRIPTION: 
O35F 957 ; THIS ROUTINE IS ENTERED TO OUTPUT A TAB ON THE TARGET UNIT. 
O35F 958 ; IF THE TERMINAL HAS MECHANICAL TAB THEN THE TAB GOES DIRECi. 
O35F 959 ; OTHERWISE, THE CURSOR POSITION IS USED TO CALC. HOW MANY BLANKS 
O39 360 3 TC OUTPUT TO MOVE THE CURSOR TO THE NEXT TAB STOP. 
baer 96¢ + INPUTS: 
O35F 963; 
O35F 964: Re = ADDRESS OF THE UNIT STATE VECTOR 
O35F 965: R3 = TTY$C_TAB 
O35F 966: R5 = UCB ADDRESS 
O35F 967; 
O35F 968 : OUTPUTS: 
O35F 969 : 
O35F 970: R2 = ADDRESS OF THE UNIT STATE VECTOR 
O35F 971: R3 = TTY$C_TA 
O35F 972: R4 = ADDRESS OF TAB MULTIECHO STRING IF APPROP. 
O33 973 ; RS = UCB ADDRESS 
03 00 EF O35F 975 TAB:  EXTZV #0,#3,UCBSW_TT_CURSOR(RS),R4; GET HORIZON POINTER 
54 O0FC C5 0362 
. 0366 3 =976 IF_STATE TABEXPAND,525$ : EXPAND THE TABS 
0C 44 AS 08 £0 036A 977: BBS #TTS$V_MECHTAB,UCBSL_DEVDEPEND(R5) ,530$; OUTPUT IF MECHAN.CAL HELP 
51 08 54 A3 O36F 978 525$: SUBW3 R4&,#87R1 ;SETUP THE LENGTH OF THE TAB 
54 O001'CF 9E 0373 979 MOVAB W*TTY$A_TAB+1,R4 : ADDRESS STRING TO OUTPUT 
OCFE 31 0378 980 BRW STRTMULTI_1 -  $ START MULTIPLE OUTPUT 
0378 9¢ ; MECHANICAL TAB TERMINAL 
0378 984 ; THIS ROUTINE ASSUMES THAT THE TABS ARE SET ON 8'S 
41 A5 40 8F 91 O38 986 530$: CMPB #IT$_VTSX.UCBSB_DEVTYPE(RS); IN RANGE FOR SPECIAL CASE VTSX 
18 1A 038 987 BGTRU 535$ ; If GTR THEN NO 
41 AS 80 8F 91 03 988 CMPB) ss AT T$_VT100+32, UCB$B_DEVTYPE(R5); 
11 ig 0387 989 BLEQU 535$ : 
“ o0F ¢ C3 0389 990 SUBWS UCBS$W_TT_CURSOR(RS) ,UCBSW_DEVBUFSIZ(R5),R3; DISTANCE FROM RIGHT 
0 1 90 991 BLEQU 5348 : IF LEQU THEN SKIP TEST 
53 0B B61 0392 99 CMPW SB RB ’ IN LAST TAB SPACE? 
D8 1& 0395 99 BGEQU §525$ : IF TRUE THEN SKIP MECH TAB 
53 09 9A 0397 99% 5348: MOVZBL #TTY$C_TAB.R3 ; 
OOFC CS «54 «AA (039A) 0-995 535$: BICW R4,UCBSW_TT_CURSOR(RS) : SETUP CURSOR STOP ON 8 | 
OOFC CS) «608 )«=6—A0 (089F)=— (99 ADDW #8, UCBSW-TT-CURSOR(RS) ;: 
AS 99 CLR_STATE = ; No longer at newline; haven't 
AS 998 <NL ,WRAP> ; just wrapped. 
FDA3 31 3A9 1333 BRW OUTPUTANDWAIT : 
o aC : FOR LOCAL TABS, TRACK POSITION, BUT DON'T ECHO 
O3AC 1 : P 
O3AC 1004 TAB_LOCAL: 


Se 4 


11 
v¢ 


et 
(ee 
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v04=001 TAB = Output a tab. “sere TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (16) 
54 Bee 00 EF gue 1005 EXTZV #0,#3,UCBSW_TT_CURSOR(RS),R4; GET HORIZON POINTER 
OOFC CS) = 54S AAs 0383 BICW R4,UCB$W_TT_CURSOR(R5) ; SETUP CURSOR STOP ON 8 
OOFC C5 «608 )=6—A0 Ss 0388 


1006 - 
1007 ADDW #8, UCBSW_TT_CURSOR(RS) ; 
038D 1008 CLR_STATE - 
1009 <NL ,WRAP> 
FC40 31 03Cc2 1010 BRW GETNEXTCHAR ; GET NEXT OUTPUT CHARACTER 
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v04-001 VTAB, FORM = output a vertical Fab. or f Bo ayn 1382 Aoi: § ET TORVR. BURSRC TTYCHARO.MAR; 1 . (17) 
f } \ -SBTTL VTAB, FORM = output a vertical tab, or form feed 
C5 1014 34+ 
C5 1015 ; VTAB = OUTPUT A VERTICAL TAB 
: 1917 3; FORM = OUTPUT A FORM FEED 
ee : 13 3; FUNCTIONAL DESCRIPTION: 
c5 8 0; ite poytie SETS UP THE re hane vii Tite FOR A VTAB CF FORM FEED 
Bace 18 1 ; ON THE TARGET UNIT. VTAB TRANSLATES TO 4 LINE FEEDS. AND FORM FEED 
03c5 1 § 3; TO MULTIPLE LINE FEEDS BASED ON THE PRESENCE OF MECHANICAL HELP 
bat 18 3 AND THE CURRENT VERTICAL LINE POSITION. AVOID THE NECESSITY 
C 1024 ; FOR A LARGE NUMBER OF LF DATA BYTES THE FORM FEED CAUSES A MULTI 
03C 1025 ; ECHO STRING OF 4 LINE FEEDS 4s ee opt BY ANOTHER FORM FEED TS BE 
beee 10 § 3; OUTPUT UNTIL A PAGE CROSS TAKES PLACE. 
03C5 1027 ; 
03CS 1028 ; INPUTS: 
03C5 1029 ; 
03c5 1030; Re = ratty OF THE UNIT STATE VECTOR 
03¢5 1031; R5 = TAB OR C_FF 
03¢5 1936 5 RS = ute ADDRESS” 
03¢5 193 ; 
03CS 1034 ; OUTPUTS: 
03¢5 1035 ; 
03¢5 36 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
bate pee 3 RS = UCB ADDRESS 
54 0000'CF 9E 03C5 1938 VTAB: MOVAB W*TTYS$A_VTAB,R4 3; SET UP OUTPUT 
OC9E 31 O3CA 1040 BRwW STRTMULTI ; START MULTIPLE OUTPUT 
p3c0 1041 ; 
p3cd 10e8 3; FORM FEED 
07 44 AS 13 E1 0O3CD 9c FORM: BBC #TTSV_MECHFORM, ; BRANCH IF TERMINAL DOES NOT 
0303 1902 yrost. DEVDEPEND (RS), 3; SUPPORT MECHNICAL FORM FEEDS 
OOFE C5 94 03D 1047 CLRB UCB$B_TT_LINE(RS) ; RESET LINE POSITION 
FD76 31 0306 1048 BRW OUTPUTANBWAIT s 
54 D4 0309 1049 505$: CLRL RG SEND MULTIPLE LINE FEEDS 
54 oore C 83 St 1050 SUBB3 UCBS$B_TT_LINE(R5) ,UCBSL _BEVDEPEND+3(R5), R4; GET NUMBER TO END OF PAG 
04 54 91 baee 1051 CMPB R44 ; OUTPUT THE LF°S IN GROUPS OF 8 
0c 1A tH 1338 BGTR 3; IF GTRU THEN ej THAN 4 TO OUTPUT 
51 54 O01 Al OQ3E7 1053 510$: ADDW #1,R4,R1 ; GET THE NUMBER OF LINEFEEDS 
54 0001 °CF 9E Oa 1928 MOVAB w*tTy$a FORM+1,R4 : HH THE ADDRESS OF THE STRING 
0C86 31 F 1055 BRW ST » START OUTPUT 
54 0000'CF 9E O3F 1056 520$: MOVAB wW*TTYSA TyONGFORA. R4 3; GET ADDRESS TO STRING 
0c70 «6°31 O3F8 1057 BRi STRTMULT : 


ne 
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v04-001 DISPATCHER SERVICE R uti NES -SEP-1934 04:16: TTDRVR.BUGSRE JTTYCHARO.MAR; 1 (18) 


O3FB 1059 «SBTTL DISPATCHER SERVICE ROUTINES 
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v04-001 BACKSPACING = OUTPUT N BACKSPACES -SEP=1984 04:16: TTDRVR.BUGSRCIJTTYCHARO.MAR; 1 (19) 


FB 61 ome .SBTTL BACKSPACING = OUTPUT N BACKSPACES 
FB eg 3 BACKSPACING: 
FB 1064 : 
FB 1065 ; DESCRIPTION: 
FB 66 : ; SEND A GIVEN NUMBER OF BACKSPACES TO THE TERMINAL 
FB 68 : INPUTS: 
FB ‘ ; R = UNIT STATE VECTOR ADDRESS 
FB 1070 ; UCB ADDRESS 
FB 4 ; Ucesw. TT_MULTILEN = NUMBER OF BACKSPACES TO OUTPUT 
FB 1078 BACKSPACING: 
0100 cS. B? «OO3FB 1074 DECW ycasu TT_BSPLEN(RS) ; SUBTRACT ONE AND OUTPUT THE BACKSPACE 
06 19 O3FF 1075 BL $ ; NO MORE THEN FINISH UP 
53 08 9A 0401 107% MOVZBL #TTYS¢ _BS.R3 : SETUP BACKSPA 
FD87 31-0404 107 BRW FORMAT- CHAR > AND FORMAT THE. CHARACTER 
0407 1078 10S: CLR _STATE BACKSPACE : CLEAR THE STATE WHEN DONE 
FBFS 31 040A 1979 BRW GETNEXTCHAR : AND GET THE NEXT CHARACTER 


TTYCHARO 
v04-001 


54 78 AS 


0008 C5 
2c AG 
05 

32 A4 
0D 

53 0D 


a 
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* 


r~ 


DOOOOOOOCOO 


SSLSGRANLSSSVSEAELEN 


=; Se GS. Ce Ge Ge Se Ge Ge Ge Ge Se Se Se Ge Se Se Se Ge Se 
> 


OOOO QOOOoOoOoOoOoOoOOooOooooO 


EURSOROVRFL Ow: 


COmMoocvsVTcVT VT TV VT VTVVVTVCVCVVCVCVCVCCCC9o 


~~ ~DO0O 
COSCO SDOOSCCO 


SFLLLLLZ 
NOUSUN—| OOONOUFSWN—O 


oo oOo Ooo 
Ft ak ek et et et et et ot et et RRRLLLLRLLLK Tew Sad teh etal ee 


“o oO 
~ 


ab et at te 2 a 2 2 8 4s ob as as as a a 
Oo 


3 Pd ae ee tt ne et sn 


RMOVUMVSTCW Ou 
a) se ss — 


WA 


oOo 
oD 


“SEP-19 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 
; «SBTTL CURSOROVRFLOW = insert newline to handle end of Line 

; CURSOROVRF.LOW - INSERT A NEWLINE IN THE OUTPUT STREAM 

: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS ENTERED TO INJECT A CR/LF IN THE OUTPUT 
; STREAM REGARDLESS OF THE CURRENT ST tat E. 


INPUTS: 


(20) 


ce UNIT STATE VECTOR 


R2 = epones? OF THE UNIT STATE VECTOR 
TTYSC_CR 


R4 = READ rackeT ADDRESS 
RS = UCB ADDRESS 


CLR agile CURSOR 
“STATE WRAP 


8$ NO CURSOR RF LOW VERIFY'S 
mOUL UCBSL SVABTE(RS) R4 OTHERWISE CET THE eng +p gy 
IF NOT_STATE “eTRL IF WE ARE OL-RI 


WE ANDLE_NO 
CMPL UCBSL_TT UROL TH (RS), TTYL’ RB_LIN(R4); IF WE AREN'T "ON THE CAST Line 


BLEQU 99% ; THEN DON’T WORRIE ABOUT LINREST 

$: TSTW TTYSW_RB_LINREST(R4) ; ARE WE IN THE MIDDLE OF A LINE 
BNEQ ative : YES THEN LEAVE THE STATUS QUOE 

$: MOVZBL #TT R3 ; SET FIRST CHARACTER IS CARRIAGE RETURN 
AY STATE <SENOLF SKIPLF> ; FORCE A FREE LINEFEED 

$ oe seeytru ; CONTINUE vith CARRIAGE RETURN CODE 


ek 


FW 9 OONA UNE WO OONOUFS WH —"0O0 a= 


Be Se Se Se Se Ge Se Ge [Tie Se Se Se Se Ge Se Se Se Se See Se Se Se Se Se Sets Sete 


DPD AAI ES Be BS BS BE IAAI AAAI OR POPRIPPPR INF — 
NOUEWN—OOBNAWN 


er characte r sted Sant -JAN-1985 17: 99: 6 eS Macro V04-0 
e end of tf ne condition -SEP-1984 04:16:1 


-SBTTL EOLSEEN = handle end of Line condition 


EOLSEEN ~ END OF LINE SEEN 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS ENTERED AFTER AN END OF LINE CHARACTER HAS 
TERMINATED A READ RECORD AND THE ECHO OF THAT CHARACTER IS COMPLETE. 


THE ACTION 4s TO COMPLETE THE READ OPERATION AND IF NECESSARY, 
SEND AN XOFF 


INPUTS: 


Re = ADDRESS OF THE UNIT STATE VECTOR 
R> = UCB ADDRESS 


OUTPUTS: 


Re = ADDRESS OF THE UNIT STATE VECTOR 
= UCB ADDRESS 


EOL SEEN: ; END READ OPERATION 


IN ORDER FOR THE FINAL aged + OF A READ ong READ 170 ~~ 

te roe’ see’ READ MUST BE ALLOWED TO COMPLETE, THIS CAN BE D 

IN TWO WAYS, FIRST CH ete The STATE DISPATCHER TO ALLOW ED ts NREAD 
TO HAVE HIGHER PRIORITY THEN EOL. THIS FIXES £OL_IN THE STATE TABLE 
FOR NOW AND FOREVER. BY PUTTING THIS Cope HERE IT ALLOWS EQ. TO 

MOVE TO ANY PLACE IN THE STATE DISPATCHER. 


IF MOT STATE RDVERIFY,5$ ; LET EDIT READ COMPLETE UNDER 
IF"NOT-STATE EDITREAD,5$ ; READ VERIFY 
EDITREAD Sees 
5$: MOVZBW i NORMAL ,UCBSW_ BOFF (RS); SET STATUS 
BSBW TYSREADONE - ; COMPLETE THE 1/0 
BRW TTYSGETNEXTCHAR : CONTI NUE 


<-+ 


0 
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v04-001 FILLING = continue outputting fftt chara =3t8= 1382 6:46:49 ET TORVR.BUGSRC TTYCHARO.MAR; 1 - (33) 


rt 4 1128 -SBTTL FILLING = continue outputting fill characters 
457 1161 ;4¢ 
4 f ‘a ; FILLING = CONTINUE FILL OUTPUT 
4 , 1194 $ FUNCTIONAL DESCRIPTION: 
457 1166 : THIS ROUTINE IS ENTERED WHILE THE TRMSV Fuut STATE IS ON. 
457 1167 ; THE FILL COUNT IS DECREMENTED AND IF NON O A FILL IS OUTPUT 
4 , 1168 ; IF THE COUNT GOES TO 0 THEN THE FILL STATE IS CLEARED. 
4 , 1170 : INPUTS: 
57 1126 : R? = ADDRESS OF THE UNIT STATE VECTOR 
‘3 1173 : RS = UCB ADDRESS 
, 112 : OUTPUTS: 
sf Me : R2 = ADDRESS OF THE UNIT STATE VECTOR 
3 i = 
0437 1178 ; R5 = UCB ADDRESS 
57 1181 FILLING: ; OUTPUT CONTINUING FILLS 
0102 cS) 97) «0457-11 é DECB YCBSB_TT_FILL(RS) + ADJUST FILL COUNT 
03 12 0458 11 BNEG $ : If NEQ THEN NOT DONE YET 
045D 1184 CLR STATE FILL : SET CONDITION OFF 
53 D4 0460 1185 258 CLR R ; SET FILL CHARACTER 
FCEF 31 0462 1186 BRW OUTPUTANDWAIT1 : OUTPUT THE CHARACTER 


TTYCHARO - Terminal driver character out J roel -JAN-1985 17:29:5 AX/VMS Macro y04-00 Page 33 
v04=001 MULTIECHOING = Continue outputting multi = 30-138? ba: 98:39 ETT ORVR. BUGSRCIJTTYCHARO.MAR; 1 t 3%) 
rh Hi ~SBTTL MULTIECHOING = Continue outputting multiecho sequence 
« 1190 ;++ 
‘ i 3 MULTIECHOING = CONTINUE MULTIECHO STRING OUTPUT 
4 1138 > FUNCTIONAL DESCRIPTION: 
465 1195 : THIS ROUTINE IS ENTERED WHEN TTYS$V_ST_MULTI is SET. THE NEXT 
46 1196 3 CHARACTER IN THE STRING ADDRESSED BY OCB$L_TT MULTI IS OUTPUT. 
465 1197 ; IF THE NEXT CHARACTER 1S ZERO THEN THE eTRING™ OUTPUT Is COMPL ETE 
46 1198 : HE MULTIECHO CONDITION IS RESET FOLLOWED BY A RETURN T 
46 1199 ; THE OUTPUT STATE ANALYSIS ROUTINE IN GETNEXTCHAR. 
465 1200: IF A LENGTH H 1S SPECIFIED IN UCBS$W_TT_MULTILEN, THEN IT IS USED TO DETECT 
449 1 ; THE END OF STRING. 
465 1 08 : INPUTS: 
465 1206 ; 
465 1205 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
182 } 88 3 R5 = UCB ADDRESS 
63 1208 ; UCBSW_TT_MULTILEN = ALTERNATE LENGTH 
465 10 : OUTPUTS: 
483 1 1 : Re = ADDRESS OF THE UNIT STATE VECT 
465 1213 : = CHARACTER TO OUTPUT ( FALL F AROUGH TO ECHOFORMAT ) 
469 | 6 ; R5 = UCB ADDRESS 
0465 1916 MULTIECHOING: > CONTINUE STRING MULTI ECHO 
0ODc CSB? 04651217 DECW CBSW_TT_MULTILEN(RS) ; DECREMENT THE COUNT 
23 «18 «40469 1218 BGEQ CONTINUE IF MORE LEFT 
O0E9 C3 D0 0468 1219 MOVL UCBSL_TT_SMLT(RS) ,UCBSL_ i‘. CMULTI CRS) : RESTORE SAVED ADDRESS 
OODE CS B0 aie 1220 MOVW  UCBSW_TT_SMLTLEN(RS) ,UCBSW_TT_MULTILEN(RS);AND LENGTH 
0B 14 0479 1221 BGTR 108 
7 1 CLR _STATE <MULTL -NINTMULT I> : NO MORE THEN RESET THE STATE 
FB7F 31 1 GE TNEXTCHAR : AND GET THE NEXT C WARACTER 
OODE CS B4 0486 1224 108 et ew UCBSW_TT_SMLTLEN(R5) |: CLEAR THE SAVED LENGTH 
0op¢ C5 = B7 SO04BA 1 ECW UCBSW7TT“MULTILEN(RS) : SUBTRACT OUT THIS CHARACTER 
53 0008 DS 9A 048 1 6 208 MOVZBL @UCBSC_TT_MULTI(R5).R3 : GET NEXT MULTI ECHO CHARACTER 
0008 cS) 6 049 1 NCL CBSL_TT MULTI(RS) : ADJUST POINTER 
FCF4 31 0497 1228 BRW FORMAT_CRAR : 
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SENDLINEFEED = output a Line toed =3pNn138 43:36 HT 1 . (34) 


OO a te a et ss 5 4 — 2s 1 ss —) 3 _ 


VAIN SELLS LES 


WO DOONAN WO OONOUS WO 


4 04 
-SBTTL SENDLINEFEED = output a Line feed 


DRVR.BUGSRC JTTYCHARO.MAR; 


34+ 

; SENDLINEFEED = INSERT LINE FEED IN OUTPUT STREAM 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED TO INSERT A LINE FEED IN THE OUTPUT STREAM. 
INPUTS: 


Re = ADDRESS OF THE UNIT STATE VECTOR 
R> = UCB ADDRESS 


CQSiO oe Se Se Se Se Se Se Se Se Se Se Se Se Seeee 


OUTPUTS: 
Re = ADDRESS OF THE UNIT STATE VECTOR 
RS = UCB ADDRESS 

ENDLINEFEED: 3; SEND OUT A LINE FEED 
CLR_STATE SENDLF : CLEAR CONDITION 
MOVZBL #TTYSC_LF,R3 ; SET TO OUTPUT LINE FEED 
BRW LFOUTPOT ; CONTINUE IN LINE FEED CODE 


TTYCHARO 
04-001 


80 8F 
FFFFFFBO'EF 


MrFouvwm 


1 
3 
5 
1 


Be dcif6:19 


«-SBTTL ESCAPE SEQUENCE PARSING SERVICES 


TTDRVR.BUGSRCITTYCHARO.MAR; foee 


mec 
vs 
Be 


aa 


ESCINIT = INIT ESCAPE SEQUENCE RULES 


TS: 
R3 = CHARACTER THAT IS INTRODUCER 


WN —OOONAWN 


PVs o Oe Oe Oe Oe Oe Oe Oe Oe ee 


T 
Ri = RULE TO START AT (BYTE) 


; USE THE NORMAL wy 
; IF BIT CHARACTER 


TTYSA_ESCINIT=*X80CR3J,R1; ELSE MOVE THRU THE TABLE 


SOOONOUS 


34 

54 =0103 © 
0103 C5 54 
54 

0103 C5 

54 0104 C5 
06 

0104 (5 = 54 
0000°CF44 33 
OO01°CF44 53 
07 


WAPIPOPIPININIPIPIPOPINPINININYIAINININIPIPOPIPIPINININPD 


—o—" © 
>—"— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


PE. AAA AAI. AI. AIAN. AIA AIA AAI AAAI AI 


RRR BOO DOOO 


- Terminal driver ¢ 
ESCSYNTAX == CHECK 


73 


ttre dt eet ty eee Oe 


ARO OODNA NE WIN $9 ODNAULS WN OOO~JNOur 


ooooowun7o 


OOO NAA WN 9 OD NAVE WIN S(O OONOUE Wit 


ESCSYNTAX: 
PUSHL 


ee ee ST ee ee a i ee ee ee 
4 ‘ 


L 13 
f output routi §-JAN-1985 17:29:52 VAX/VMS M 4- 
SEQUENCE SYNTA SeSePa1986 Oastera9 f acro 04-00 


«SBTTL ESCSYNTAX == CHECK ESCAPE SEQUENCE SYNTAX 


;+4 
FUNCTIONAL DESCRIPTION: 


his routine checks the syntax of escape sequences, one 
character at a time. 


; INPUTS: 


R3_ contains the next character to be checkea for correct syntax 
~r" ule tn) ghef1¥BA_Estase: syntax table for" input 
u n the * syntax e for input data. 
UCBSB_TT a 5 
s 


.O(R5) contains the offset for output data. 
Assume R 


available 


1 


; OUTPUTS: 


SITIVE means the character is syntactically correct 
UAL means syntactic correctness and sequence is complete 
GATIVE means error in parsing sequence 


CC = POSITIVE the UCBSB_TT_ESC (ESC_0O) offset is updated. 


— OOO 


INPUT ESCAPE SEQUENCES 


SAVE R4 

GET CURRENT STATE 

SAVE STATE 

AND RESTORE R4 

SET THE CONDITION CODES 


RG 
MOVZBL UCBSB_TT_ESC(R5),R4 
BSBB-SsE_ SYNTAX 
MOVB RE .UCBSB_TT_ESC(RS) 
1S16 UCB$B_TT_ESC(RS) 


: OUPUT ESCAPE SEQUENCES 


ESCSYNTAX_O: 


novzBL UCBSB_TT_ESC_O(R5),R4 ; GET CURRENT STATE 


BB E_SYNTA 
ae R&,UCBS$B_TT_ESC_O(RS5) SAVE CURRENT STATE 


: GENERAL SEQUENCE HANDLER 


E_SYNTAX:: 


core R3, W*TTYSA_ESCAPECR4] ; check range of character 


LSSU ; branch *f not this rule 
PB R35, W*TTYSA_ESCAPE*1(R4]; lower than high Limit? 
BGTRU 208 : look to next rule 


TTDRVR.BUGSRCJTTYCHARO.MAR; 1 


TTYCHARO = Terminal driver ch er output saat’ maths t 17:99:38 yaa lyes Macro v04-00 Page 3 
v04-001 ESCSYNTAX == CHECK E £*Seaue CE SYNTA 5=SEP=1934 04:16:1 TTDRVR.BUGSRCIJTTYCHARO.MAR; 1 (26) 


54 O002°CF44 9A Q4E7 1330 MOVZBL W*TTYSA_ESCAPE+2(R4],- ; character is valid 
ni} ! 1 RG ; save offset to next rule 
05 Q46ED 1 : RSB 3 offset=POS => next rule exists 
ReEe 1334 : offset=0 => end of sequence 
4EE 1335 
Bree 1 : : ; . 
ReeE ! 3; Continue looking for correct sequence rule 
0002"CF44 95 O4EE 1339 208:  TSTB wTTYSA_ESCAPE+2(R4] ; any next rule? 
05 13 O4F3 1340 BEQL 30$ 3; no; bad syntax 
54 03 C9 O4F tre ADDL #3, R4 3 offset to next rule 
DD 11 O4FB 1 og BRB 10$ ; continue syntax check 
O4FA 1343 30$: 
54 1 CE O4FA 1344 MNEGL #1, RG ; error in sequence 
05 O4FD 1345 RSB 


LT SL SSS 


cter out ut ot’ meats 5 Ai 42 3e ey ihe Macro v04-00 Page | 


TTYCHARO - Terminal driver charact 
v04=001 MOVEREADATA = MOVE CHARACTER FROM TYPEAH 5=SEP-19 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 
si 47 .SBTTL MOVEREADATA = MOVE CHARACTER FROM TYPEAHEAD TO READ BUFFER 
are ‘3 : MOVEREADATA == MOVE CHARACTER FROM TYPEAHEAD BUFFER TO READ BUFFER 
QcrE 31 > FUNCTIONAL DESCRIPTION: 
ure 1 2g : THIS ROUTINE MOVES A CHARACTER FROM THE TYPEAHEAD BUFFER AND STARTS 
Rees } 20 : THE ECHO. 
Rees } 28 : NON“IMMEDIATE ACTION CONTROL SEQUENCES ARE HANDLED HERE. 
O4FE 1 28 : BEFORE RETURNING A CHARACTER FOR ECHO IT IS CONVERTED TO ITS 
O4FE 1 ; MULTIPLE ECHO STRING IF APPROPRIATE. IN THIS CASE THE CHARACTER 
Ore 69 : RETURNED IS THE FIRST OF THE MULTIPLE ECHO CHARACTERS. 
O4FE 1 6¢ t INPUTS: 
Ore 63 : RS = UCB ADDRESS 
O4FE 1365 > OUTPUTS: 
O4FE 1367: R3 = CHARACTER IF ANY (CC = EQL ) 
O4FE 1368 : R5 = UCB ADDRESS 
ge 1p 
are 1371 : GOTO TABLE 
O11F «631s O4FE 1398 TAB_NOTA: BRW NOTA 
51 58 A5 DO 0501 1374 TABTEOLSEEN: MOVL  UCBSL_IRP(RS),R1 
PS, Bt bea ieee ime Jere rebate 
0153 31 0508 1377 TAB_DISMISS:  BRW DISMISS 
0101 31 O50€ 1378 TABTBUFEMPTY:  BRW BUF EMPTY 
0232 31 0511 1379 TABLINDELST: BRW INDELST 
OC1F 31 0514 1 80 TAB-PASSALL:  BRW PASSALL 
FAEB 31 0517 1381 TAB-GETNEXT:  BRW GETNEXTCHAR 
020c «31 «OSA 1 8¢ TAB QUOTE : BRW QUOTE - 
Oke 31 0510 13 TAB_EDITINGCHAR:BRW EDITINGCHAR 
53 95 0520 1384 TAB_ESCINPROG: TSTB 3 ; NO NULLS IN ESCAPE SEQUENCES 
e? 13 €522 1385 BEQL §§ TAB_DISMISS 
013F 4631-0524 1386 BRW ESCTNPROG 
O12A 31 0527 1387 TAB_CVTLOW: BRW CVTLOW 
0230 «31 09 A 38 TAB-OPEN: BRW OPEN 
09 D 1390 : MAIN LINE MOVE OUT OF BUFFER CODE 
52D 1391 MOVEREADATA: ; 
08 D1 38 -ENABLE LSB 
54 78 AS 00 052d 139 VL UCBSL_SVAPTE(RS) .R4 ; SETUP R4 TO CONTAIN THE ADDRESS OF THE 
14 AG 04 0531 «1394 CLRL —s TTYSLRB_ECHSTR(R4) ; CLEAN OUT ANY UNUSED ECHO STRINGS 
40 A6 =3C AG BI 0534) «1395 CMPW = s- TTYSW"RB-TXTOFF(R4),TTY$W_RB_TXTSIZ(R4); TEST BUFFER FULL 
1E 3 9 36 BGEQU TAB_EOLSEEN ; BUFFER FULL THEN END 
330 38 : MOVE CHARACTER OUT OF TYPEAHEAD BUFFER 
54 O0E4 C5 9 03 8 1400 . MOVL UCBSL_TT_TYPAHD(RS).R4 ; ADDRESS TYPEAHEAD BUFFER 
Bc 540 1401 BEQL § TAB_NOTA : NO BUFFER THEN THERE IS A FORK 
04g 1408 t PROCESS WAITING SO LET IT GO. 
OC AS =6B7 (0542 «140 DECW TTY$W_TA_INAHD(R4) ; take the character out of typeahead 


ennai 


F2 
06 
9E 


dO 


oA 
12 


Oowoo-Dwmmo 
ASAOWUOSCSO 


m3 

>-—.- 
=] 

pass) 


rab th dh th dh abl 


OOOO SCSCOCSOOOOOOOOCOOOOOOOOOOO 


MAMA AAAI TUTTI 
SENSIS SD DTI BS EPP PPLE 


CODD OOVOOBDOOWOnNn~AN 
A TDOL LEH OM SS MP PPP PVE MNS POH NWOL LLL POA NVIVIVID OULD AHH HD~U 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 
| 


OWDDWDOODOOr>r>r>r>Y 


B 14 
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VE CHARACTER FROM TYPEAH SaSEP=1984 Gastosts LOTOMUS BaRSRC et yCGARO.MARs; =m (33) vl 
BLSS TAB gure 3; IF EQL THEN NO 
MOVZBL aTTYS$L 4 PEETCRG), R3 ; GET THE CHARACTER 
IF STATE DEL, TRB _INDELST 3; ARE WE IN DELETE STATE 


3 ACTUALLY REMOVE CHARACTER FROM BUFFER 


; CHECK FOR BUFFER WRAP AROUND 


40$:  AOBLSS TTYSL_TA_END(R4), TTYSL_TA_GET(R4),60$; POINTER PAST END? 


MOVAB TTYSL_TA_DATA(R4),TTYSL_TA_GET(R4); RESET POINTER 


SKIP TESTS FOR SECOND CONTROL SEQUENCE SET IF PASSALL 


60S: MOVL UCBSL_SVAPTE(RS) ,R4& SETUP R4 TO CONTAIN THE ADDRESS OF THE 
IF STATE <PASALL, NOFLTR> TAB PASSALL IN PASSALL THEN PASS A 
IF “STATE QUOTING, Quote ARE W WE QUOTING 

67$: MOUZBL TTYS$SA TUELISTER 1,R1 : GET THE TOKEN 
BNEQ TAB_EDITINGCHAR ; SPECAIL ACTION THEN HANDLE SPECAILY 


| INSERT THE CHARACTER 


1518: | chia <ESC>,TAB_ESCINPROG; IF IN AN ESCAPE SEQUENCE THEN HANDLE AS SUCH 
1528: UCBSL_IRP(R5),R1 GET THE IRP ADDRESS 

BBS. #10SV" CVTLOW, [RPSW_FUNC(R1) TAB_CVTLOW; BR IF CONVERT LOWER T0_ UPPER 
155$: BBS R3,aTTYSL_RB TERM(RG), TERMFOUND? IS THIS CHARACTER A TERMINATOR 

MOVZWL TTY$W_RB_CINOFF(R4),R1 ; GET THE OFFSET INTO THE BUFFER 

STW TTYSW"RB"LINREST (R45 : D VE TO OPEN THE BUFFER 

NEQ TAB O THEN HANDLE NORMALLY 
159$ MOVB R3,aTTYSL_RB LIN(RG)CR1I; INSERT chan ACTER 

NCW - TTY$SW_RB_TXTOFF(R4) > ADJUST POINTER 

INCW —- TTYSW7RB7LINOFF (R4) : ADD TO COUNT 
CHECK FOR FULL BUFFER 
¢HECK_BUFFER: 
210$:~ CMPW §TTYSW_RB_TXTOFF(R4), TTySu _RB_TXTSIZ(R4); TEST BUFFER FULL 

BGEQU 2128 ~ BUFFER FULL THEN END 
ECHO THE CHARACTER IF NECESSARY 
5308: ATE <NOECHO,ESC,EDITREAD>,250$; IF NOECHC OR ESC THEN BRANCH 

dra’ FORMAT_CHAR ; 
2408: BRW GE TNEXTCHAR : VECTOR TO TRANSFER MORE CHARACTERS 
BUFFER OVERFLOWED THEN TERMINATE 
5128: MOVE UCBSL_ 1RPCRS) R1 ; GET THE IRP ADDRESS 

CLRW 3s LRP SLM TERMINAT 


MEDIACRI) ; SET NO TERMINATOR 
BIcw #10$M~ TRRNOE CHO, IRPSW_ FUNC(RI); FORCE POSSIBLE ECHO 
BRB 2218 ; AND CONTINUE 


<-— 
me 
zs 


Ooooeo mz 


=z 
Oo 


VOWOWo 
-Oo OOOCOoOO 


wm 


0 
i] 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
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- MOVE CHARACTER FROM TYPEAH 5-SEP-1984 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (27) . 
1457 ; 
1928 ; TERMINATOR FOUND BUT BUFFER NOT FULL 
1460 TERMFOUND: 
1461 MOVL UCBSL JRP(RS) R1 : GET THE IRP ADDRESS 
1468 MOVW RP MEDIACRI) + SAVE LAST CHARACTER FOR STATUS 
146 INCW RPSL MEDIA’ (R1) : Ser TERMINA TOR § 
1464 MOVZWL TV $u> RE TXTOFF(R4),R1 _: GET THE OFFSET TO THE LAST CHARACTER 
1465 MOVB 3,aTTY$C_RB_TXT(R4 ase CRI); PUT THE LAST CHARACTER 
1466 MOVL HTH IRPTRSS,R1 ; GET THE IRP ADDRESS BACK 
146 3218: SET. “STATE <EOC> : SET END OF LINE SEEN 
1468 225$: BBS” #1O8V_ TRMNOECHO, IRP$W_FUNC(R1), 2408; BR IF NOT TERM NOECHO 
1469 BRW 
1470 ; 
1471 : TEST FOR ECHO NEEDS 
1298 250$: If STATE sfEDLTREAD ESC> 2408 : CONTINUE IF ESCAPE 
1474 pat TT2$V_LOCALECHO, - 
1475 UCBs _BEVDEPND2(R5),240$ ; NO FORMATTING IF NOT LOCAL ECHO 
1476 MOVL UCBSLIRP(RS),R1 : GET THE IRP ADDRESS 
1477 BBS #IO$V=NOECHO, = 
1478 IRP$W-FUNC(R1),240$ : OR READ NOECHO 
1479 BRW FORMAT_LOCAL : OTHERWISE, LOCAL ECHO TERMINAL, FORMAT 


- Ter 
MOVER 


11 
31 
B4 


s4— 
> 


VN NUE RE RE RES ERLSRR ERE EE HS 


oOo ODOC OOOOOOOOR® 


mz 
>—. 
1 P| 
>o 


———DODOOO000 


COOoOoOOCOCOCoOOOOCOCOOOOOOOOOOCOOOOoOO 
PRARAARAAAAAAAAAAAAAAAAAAA AAAS 


WIWWUIRONoPononononononanyd 


DWHALOMD NOOCCOCCOCOO VV TBAB OUI 


fou 
=> 
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INES =36N- 1382 0:43:35 YT TORVR.BOESRC TTYCHARO.MAR; 1 ° (38) vi 


.SBTTL MOVEREADATA SERVICE ROUTINES 
: TYPEAHEAD BUFFER EXHAUSTED 
25$:  IF_NOT STATE eNOECHO, 21$ 


ma. 
<8 
-s 
oO 
moa 
on 
co 
AO 


NO ECHO READ NECESSARY TO OPTOMIZE 


ger wi Bs, 3; SET THE BYPASS TYPEAHED BUFFER STATE 
3; CONTINUE IN THE NORMAL CODE PATH 
0$: BRW XON ; CONTINUE 
BUFEMPTY: 
CLRW TTY$W_TA_INAHD(R4) ; FIX THE COUNT TO REFLECT 0 
IF_STATE <PASALL> Nae 25$ : 
NOTA: IF-STATE <TYPFUL>,20 ; BR IF TYPEAHEAD FULL 


: THE TYPEAHEAD BUFFER 
+ IF PROCESSING A READ 
v 


atte Mean ce EMPTIED INTO THE SYSTEM BUFFER. 
; TO THE USER IMMEDIATELY. 
TT 
AX 


SECOND TIMEOUT, RETURN THE DATA 


BBC #UCBS TIMO,UCBSW_DEVSTS(R5), bts SMISS; BR IF NOT READ WITH TIMEOUT 


tt a ot st 
—OODNAVUES VP" OOONOuUS wr we 
Ne: . 


CMPL ——« TTYSA_MAXTIME ,UCBSL_TT_RDUE(R5): ZERO SECOND TIMEOUT? 

2 BNEQ DISMISS : IF NOT. 
MOVW #SS$_ TIMEOUT ,UCBSW_BOFF (ASS. SET TIMEOUT COMPLETION STATUS. 
BRW TTYSREADONE : COMPLETE REGUEST. 


_ 
“ 
o- 
une 


a 


USVI SUSU bd a] 
—_. 


ze 
oO 
<-— 
me 
za 
ms 
>-. 
os 
ro 
ae 
FUN OOO NOUEWWN "OC OOVNOUSWAR—O0OON We 


LA 


= 
—MMDOMN——F ODOOODOODODOOOOD00000000 
Ok ak kk tt tt 
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output routi 8-JAN-19 9:5 AX/VMS Macro Vv04-00 Pa 4 T 
, Been 8be betas LARS NMS Bacco. TTYCHARO.MARS 1° 2” (39) vl 


<@e® 
-9 
oO 

mo 

> 

De 
os 
coe 
AS 


ae XON - SEND XON 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED TO SEND AN XON 
INPUTS: 


Re = ADDRESS OF THE UNIT STATE VECTOR 
R> = UCB ADDRESS 


Dee oe Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se 


OUTPUTS: 
Re = ADDRESS OF THE UNIT STATE VECTOR 
R5 = UCB ADDRESS 
ON: ; SEND AN XON 
CLR_STATE <TYPFUL> 
IF_NOT_STATE <OVRFLO>,10$ ; SKIP IF NO OVERFLOW ERROR 
abe STATE <OVRFLO RESET CONDITION 


Ova ass VDATAOVERUN, UCBSW _BOFF (RS); COMPLETE READ IN ERRUR 
BSBW =‘ TTYSREADONE 


10$: BSBW TTYSXON 
BRW GE TNEXTCHAR 


TTYCHARO 
v04-001 


0000'CF43 
53 


03 


20 
FF20 


: CONVERT CH 
CVTLOW: BBC 


BICW 
154$: BRW 


Output routi 8-JAN-1985 17:29:5 AX/VMS Macro Vv04-00 Pa 
: grant 4 60:90:38 ETTORVR. BUGSRCJTTYCHARO.MAR; 1 _ 


ARACTER TO UPPER CASE 
#TTYSV_CH_LOWER,W*TTYSA_TYPECR3),154$; BR IF NOT LOWER CHARACTER 
#*X020,R3 ; CONVERT TO UPPER CASE 
155$ 


43 
(31) 


TTYCHARO - 
v04-001 


Vick Rod 


i 


ROUTI 


G 14 
j -JAN-19 
ster. output rout go 10-138 


97: 36 AX/VMS Macro y04-00 Page 
TTDRVR. BUGSRC TTYCHARO.MAR; 1 


; SET NO RETURN CHARACTER, 
; and dismiss the interupt 


<=- 
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TTYCHARO - Terminal driver character 
v04=001 MOVEREADATA SERVICE ROUTINES SEP=1984 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (33) 
666 1551 ; 
bee ¢ ; ESCAPE SEQUENCE IN PROGRESS = CHECK SYNTAX 
666 1554 ESCINPROG: 
53 9 666 1555 TSTB) RB : NO NULLS IN ESCAPE SEQUENCES 
0 13 0668 1 : BEQL  961$ ; $0 DROP IT 
51 3C Ab 3 66A 1 MOVZWL TTYSW RB TXTOFF(R4),R1 _: GET THE PLACE TO STORE THE ESCAPE 
00 8441 ‘53 66 1338 MOVE 3, aTTYSC_RB_TXT(R4SCR1): AND PLACE THE CHARACTER IN THE RIGHT PLACE 
CAS 6B6 O06 155 INCW =: TTY$W_RB_TXTOFF (R4) ; AND INCREMENT THE WORL 
51 58 a5 00 067 1360 MOVL UCBSL-IRP(RS),R1 : GET THE IRP ADDRESS 
A Al 6 7A 1561 INCW  IRPSLMEDIA+2(R1) ; ADJUST SIZE OF ESCAPE ySEQuence 
FE 34 0 067D 1 ¢ BSBW gS SYRTAX : CHECK CHAR AGAINST SYN 
1 1% 06 9 156 BGTR é $ t VALID CHAR, CONTINU 
0% 8613 6 é 1364 BEQL 197% + VALID CHAR, SEQUENCE LOMPLETE 
: 1208 : 3 ESCAPE SYNTAX ERROR 
684 1568 195$: SET STATE BADESC ; SET BAD ESC 
0688 1369 197$: CLRTSTATE s¢ SET SEQUENCE DONE 
3C AS) SA Als? Ss(068D 1570 SUBQ —_IRPSL_MEDIA+2(R1), TTYSW ie TXTOFF (R4) SD JUST TRANSFER SIZE 
0692 1571 IF _STATE OOOrC TR. BADESC>,199$ ~; BAD SEQUENC ck THEN HANDLE NORMALY OR 
069A 1572 : NOFILTER REA 
;M1RO001 69A 1 If NOT_STATE <EDITING>, 1998 : NO EDITING TH NE GO AND RETURN THE SEQUENDE 
53 7E BF 91 Ht 1573 CHB #°A/"7,R : IS THIS A FUNCTION KEY 
- O6A 1574 9 ; NO THEN HANDLE APROPRIATELY 
48 a6 «615 «Bl CO06ASO1575 tr 4 TTY$W_RB_ESCTKN(R4) ; IS THIS THE EXIT KEY 
13 (12 O6A8 1376 BNEQ 9 : NO THEN TRY NORMAL KEY 
53 1A 9A O6AA 157 MOVZBL #TTY$C_CTRLZ,R3 + SETUP A CONTROL- 
38 Al DS O6AD 1578 CLRL TRPSL_ MEDIA(R1) : CLEAN THE ESCAPE SEQUENCE uP 
0188 «4031 «OO 1579 BRW 62$ [AND GO OFF TO DISPA 
0683 1580 
0078 31 0683 1581 960$: BRW 198$ 
686 13 ; 
686 1 199$: 
686 1584 SET_STATE EOL ; SET UP _END OF LINE 
F968 = 31 O6BA 13 i‘ 961$: BRW GETNEXTCHAR : THEN GET THE NEXt CHARACTER 
680 15 
068D 15 g FUNCTION KEY DETECTED CHANGE FUNCTION KEY TO TOKEN 
peep 1383 3 3; BUT ONLY IF WE ARE EDITING 
0680 1891 $208: IF_NOT LSTATE <EDITING>,199$ EDITING THE GO AND RETURN THE SEQUENDE 
oon Ae B1 ci 1592 CMPW ~ TTYS$W_RB_ESC CTKN(RG) « ottvix’h _MAXESCTKN; IS IT OUT OF RANGE 
7 1A 06C7 1593 BGTRU 190% , YES THEN RETURN IT 
51 48A C 069 159% MOVZWL TTYS$W_RB_ESCTKN(R4),R1 : GET THE OFFSET 
00000000" EF ‘i A cD 1595 MOVZBL TTYSATFCATKNCR1),R1 : AND MAKE THAT INTO A TOKEN 
DS 1 % 930$: 
51 95 0605 159 TSTB aR : IS THIS VALID 
| a D7? 1 38 BEQL ©: 1908 : NO THEN RETURN THE SEQUENCE 
53 58 AS 00 0609 1599 1918: MOVL  UCBSL_IRP(RS).R3 : GET THE IRP ADDRESS 
38 a3) «4 «(0600 )=—«1600 CLRL = RPSL PeDiAtns) : CLEAR THE ESCAPE SEQUENCE OUT 
0p 51 HI FEO 1601 CMPB RT rity K_ET_UNUSED : IS THIS AN UNUSED ESCAPE SEQUENCE 
F 4 E316 : Bea. 4=s«9 708 : YES THEN IGNORE IT... 
op 51 91 0665 16 CMPB oR}1,#TTYSK_ET_RECALL : IS THIS A RECALL COMMAND 
03 12 0668 1604 BNEQ 199% : NO THEN CONTINUE NORMALY 


<4 
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v04-001 MOVEREADATA SERVICE ROUTINES g- -SEP-1934 039: § TTDRVR.BUGSRCIJTTYCHARO.MAR; ' ge 38) 
53 A EA 1605 MOVZBL #TTYSC_CTRLB,R3 3; YES THEN MAKE IT A CONTROL-B AND CONTINUE 
0199 3 ef 18 $ 192$: BRW 70$—i—i 
F 1608 910$: IF NOT oat <EDITIN 3; AND WE ARE NCT EDITING DO 
03 3A Al B1 ore 1609 CMPw PSL_MEDIA+ m8 41378 a3 3 IS THE SEQUENCE LONGER THAN ue CHARACTERS 
6 14 O6F8 1610 BeTR Ht ; YES THEN DO A MATCH ON IT 
51 5 GA O6FA 1611 MOVZBL #TTYSK_ET_BACK_CHAR,R1 ; SETUP FOR BACK CHARCTER 
53 44 BF 91 of0 191% CMPB #*A/D/-R3- : IS IT A BACK CHARACTER 
D2 13 01 161 EQL 930$ YES THEN DISPATC 
51 06 SA 703 +1614 MOVZBL #TTYSK_ET_ FORWARD _CHAR Ris; GO FOWARD A CHARACTER 
53 43 BF 91 706 1615 CMPB #*A/C/URS™ 3; IS IT A FORWARD 
C9 «13 Bf A 1916 EQL 930$ 3; HANDLE IT 
51 oe 9A 70C 161 MOVZBL #TTYSK_ET_RECALL,R1 ; RECALL A COMMAND 
53 41 BF 91 O70F 1618 CMPB #*A/A/,R3- ; IS THIS RECALL? 
co.) Ol «13 aR 1619 BEQL 930$ 
06 20 A4 10 €0 071 1620 BBS TRMSV_TM_NORECALL,TTYSL_RB_MOD(R4),190$; CHECK NORECALL 
53 42 8F 91 O71A 1621 CMPB #*A/B/ RS” ; 15 THIS AD ROW? 
B5 13 143 19 ¢ BEQL 930$ 3; YES THEN DROP IT 
0780 1624 ; DON'T TERMINATE ON THIS SEQUENCE UNLESS HE REALY WANTS IT 
8556 1 2 3; (THE MODE OF THE READ IS ESCAPE 
0720 1627 190$: IF STATE ESCAPE,199$ 3; IF THIS IS AN ESCAPE SEQUENCE READ THEN 
0724 1628 970$: 3; TERMINATE ON ESCAPE SEQUEN pit 
51 58 AS v0 brs 1629 MOVL UCBSL_IRP(RS) ,R1 ; MAKE SURE WE HAVE THE IRP ADDRESS 
38 Al D4 0728 1630 CLRL IRPSL_ME DIACRI) 3; NO THEN CLEAN THE SEQUENCE OFF THE TERMINA 
F8D7 31 8oSe 163) BRW TR TWERTEMAR 3; AND GET THE NEXT CHARACTER 
072E 1838 : NORMAL ESCAPE SEQUENCE TERMINATION 
O72E 1634 ; 
Bist 199? 
53 30 91 og 1636 198$: CMPB #*A/0/,R3 ; IS THIS A NUMBER 
10 14 0731 1637 BGTR ; NO THEN EXIT 
53 39 91 0733 1638 CMPB #*A/9/,R3 S eae 
0B 19 0736 1639 BLSS 900$ 3 
48 AG OA A4& 0738 1640 MULW #10, TTYSW_RB_ESCTKN(R4) ; SHIFT THE arace OVER 
53 30 A2 O73C 1641 SUBW #*A R ; SUBTRACT OUT 0 
48 AG 53 A0 073F 1986 ADDW R3 TTY$W_RB_ESCTKN(R4) 3ADD IT IN 
FE54 71 «(0743 «+1643 9008: BRW 216$ 
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746 164 
oe 1s : SEE IF DELETE SEQUENCE SHOULD BE TERMINATED 
7F 8F 53 9 146 48 INDELST: :CHPB R3 #TTYSC_DELETE : 1s THIS ren e6 on A DELETE? 
Oc AG) «6B O074C 1880 ti fic TTY$W_TA_INAHD(R4) > NO THEN PUT THE CHARACTER BACK 
ror 163 CLR_STATE DEL~ ; NERMINATES DELETE SEQUENCE 
03 1688 | TERMINATE DELETE SEQUENCE IF NOT IN NO-ECHO 
t. ; 
53 5C BF OA 073 1655 MOVZBL #*A/\/,R3 ; SET OUTPUT CHARACTER 
FA34 31 O87 1656 BRW FORMAT. CHAR : FORMAT THE CHARACTER 
2 
FDF2 31 075A 1658 50S: BRW 40$ 
(75D 1659 


ms 
>—. 
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—— 
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NN Wwe 
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&Fwen— 
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ow 
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o°oeo-o m— 
OoowM "— 
SSNS SSS NN NNN 


IN 
AOOOOOOCWWWWwOow 
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Q 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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output routi aoa Fae ‘9 


driver character 38 Gqied Macro y04-00 $8, 
SERVICE ROUTINES 984 :19 CTTDRVR.BUGSRCJTTYCHARO.MAR; ia 3 
166) : ; 

16 ¢ OPEN THE BUF FER 

1663 ; OR JUST CVERSTRIKE 

1665 bpen: 

186? ; SPREAD THE BUFFER TO PUT THIS CHARCTER IN PLACE 

1688 ’ PUSHR #*M<RO,R1,R2,R3,R4,R5> ; SAVE THE REGISTERS OVER THE MOVE 

1670 CLRL sR ; : SET FORWAR 

1671 BSBW = CHAR_SIZE : GET THE CHARACTER SIZE 

1678 ; IF NOT AT THE END OF LINE THEN DON'T LET THE USER WRAP THE LINE 

1675 ° IF_STATE <WRAP, TABRIGHT>, 194$ 

1676 1698: AdSW3 R3,UCBSW_TT TEURSORCRSD , TTY$W_RB_ tP2CUR(RG): AND ADD IT INTO THE CURR 
1677 MOVZWL TTY$W_RB_LINOFF(R4).R1 ; GET THE LOCATION OF THE LAST CHARACTER 
1678 MOVAB aTTY$C_RB_LIN(R4)CRIJ, TTYSL _RB_ECHSTR(R4); GET THE ADDRESS 

1679 MOV eTTySK ff RCLRECHO. -TTYSW_RB MODE (RG) AND SETUP THE ECHO MODE 
1680 IF STATE NO NOE CH BON'T ECHO IF NOT ECHOING... 

1681 SET STATE pert bb ; AND SET THE EDIT READ STATE 

1688 193$: IF _ROT_STATE OVERSTRIKE,158$ | : NOT IN OVER STRIKE THEN HANDLE NORMALY 
16 CMPB 12SP) ,#TTYSC_TAB : WAS THIS CHARACTER A TAB? 

1684 BEQL 1588 : YES THEN INSERT IT. 

1686 DECW  TTYS$W_RB_LINREST(R4) ; IN OVERSTRIKE WE DELETE WHILE TYPING 

1687 DECW § TTYSWIRB-TXTOFF (R4) : FAKE OUT THE REST OF THE LOGIC 

1689 CMPL =séR3, #1 : Is THIS A SHORT ECHOING CHARACTER 

1690 BNEQ 168% HEN output THE WHOLE THING 

1691 CMPB = @TTYSL_RB_ECHSTR(R4), #TT¥SC 1A8: ON TOP OF AT 

1698 BEQL 1578 THEN” HANDLE SPECAILLY 

169 CLRW =—- TTY$W_RB_MODE(R4) : tt AN OUT THE MODE FOR LATER 

1694 CLRL _—*TTYS$SL“RB-ECHSTR(R4) + MAKE SURE THE STRING IS ZERO 

1695 CLR_STATE EDITREAD : AND DON'T DO THE EDITREAD ECHO (ONLY 

1696 ; ONE CHARACTER NO NEED) 

1697 RB 168$ AND DON'T BOTHER WITH THE MOVC 

1698 157$: EXTZV #0,#3,TTYSW_RB_ CPZCUR(R4S.R3: err THE LENGTH OF THE TAB 

1699 TSTL R3 : DELETE THE TAB WHEN IT EXPANDS TO ZERO 

1700 BEQL 171% : MAKE IT DISAPPEAR 

1701 INCW  TTY$W_RB_LINREST(R4) : ELSE JUST INSERT THE CHARACTER 

17 é INCW © TTYSWTRBTTXTOFF (R4) 

7 3 158$: INCL Ri : INCREMENT THE REGISTER BY 1 TO GET THE 
1705 MOVC3 TTY$W_RB_LINREST(R4),- : AND MOVE THE CHARACTERS OVER 

1706 artysc. Rat mist STR (Ra) cat TYSL.. RB_LIN(R4)CR1) 

1707 168$:  POPR #*M<RO,R1,R2,R3,R4,R5> =; RESTORE THE REGISTERS 

1708 ADDB3 = TTYS$W_RB_LINREST(R4) #1, ity _RB_ECHLEN(R4); AND LENGTH OF STRING TO 
1709 BRW 159$ : AND INSERT THE CHARACTER 

1710 171$: INCW  TTY$W_RB_LINOFF(R4) ; LOOK FROM 1H HIS CHA RACTER ON 

1711 BSBW =: TABRIGHT : MAKE SURE THE TAB AFTER THIS POSITION 
1712 ; FLAG 1S SET CORRECTLY. 
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-SEP-1 
TTY$W_RB_LINOFF (R4) 
1688 


$ 
( (SP) ,#@TTYSC_TAB 


#*M<RO,R1 phe. R3,R4,R5> 


Vv 

R 

3 

4 

é ; 

8 1948:  1F NOT_STATE OVERSTRIKE,2348 
MP” R38 

0 

i GETNEX TCH 

5 1698 


3 vax /VMS Macro v04-00 Page 4 
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EP L 

INT 


ne FLU THE SAME AS WE STARTED WITH 


9:5 
6:1 
KE 
JO 


DON'T EVER INSERT AFTER THE WRAP 
IS yt A SINGLE es a EXPANSION 
NO THEN DON'T INSERT IT 


TERS 
AND GET THE NEXT CHARACTER 


<- 
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7F9 #1727; 
oe Vy 8 ; QUOTING CHARACTER DETECTED 
0D 04 A2 14 €4 O7F9 1730 QUOTE: BBSC #TTYSV_ST_EDITING,4(R2),65$; IF EDITING IS SET THEN CLEAR IT 
483 1731 If STATE ,65$ ; IF ESCAPE THEN DON'T TURN OFF EDITING YET 
0802 17 § SET_STATE EDITING 3; IF IT NOT EDITING THEN SET EDITING 
0806 173 CLR_STATE QUOTING 3; AND CLEAR QUOTING 
FDOSC 31 0808 1734 65%: BRW 67$ ; RETURN TO THE NORMAL PLACE 


<-~ 
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oe —E 17 § -SBTTL Specail input character cispatcher 
BOE 1737 ;++ 
SOE 1738; 
BOE 1733 : SERVICE ROUTINES TO MOVE READATA 
but 1741 ; SPECAIL EDITING CHARACTER HANDELING 
OBOE 1748 EDITINGCHAR: 
080 1744 IF_STATE <EDITING>,70$ EDITING THEN NO RANGE CHECK NECESSARY 
04 51 D1 OB12 1745 CMPL RR L#TTYSK ” EDI TNORMAL NOT EDITING THEN ANYTHING ADVANCED 
27 14 «0B815 1746 BGTR 1658 : IS BAD 
0817 1747 70S: CASE  R1,TYPE=L,<= 
0817 1748 15{$,- : IS NORMAL CHARACTER (SHOULD NEVER BE USED) 
0817 1749 CTRLU,- + 1S CONTROL- 
0817 1750 CTRLR,- : INDICATES CONTROL-R 
0817 1751 DELCHAR,- : INDICATES DELETE CHARCTER 
0817 1738 ESCAPE CHAR,- : INDICATES ESCAPE CHARCTER 
0817 175 BACK_CRAR,= : MOVE BACK ONE CHARACTE 
9817 1754 FORWARD_CHAR,=- : MOVE FOWARD ONE CHARACTER 
0817 1755 MOVE_EOC,- t MOVE TO THE END O 
0817 1756 MOVE ~BOL,- + MOVE TO THE BEGINNING OF LINE 
0817 1757 DELETE WORD,- + DELETE WORD TO TH 
0817 1758 QUOT ING, : QUOTE CHA ER 
9817 1759 RECALL, = ; RECALL THE LAST COMMAND 
0817 1766 TOGGEL insov- + TOGGEL INSERT/OVERSTRIKE MODE 
0835 1768 IF STATE TERMNORM,162$ ; TERMINATE ON USUAL 
OE 51 01 0839 1764 CMPL  R1,#TTYSK_ET_TERMINATE ; WAS THIS A REAL TERMINATOR CHARACTER 
1E 12 O83C 1765 BNEQ : NO THEN DON'T LET IT THRU 
O83E 1766 162$: IF_STATE <ESC>, 166$ IF IN AN ESCAPE SEQUENCE THEN Let IT THRU 
OF 1¢ BG 653)—COEO «(0842 «1767 aes R3, arty st _RB_TERM(R4), 16is; Is ris CHARACTER A TERMINA 
OD 53 91 0847 1768 CMPB RB #TTYSCCR™ WE ARE P REPARED TO HANDLE — 
13 13 OB4A 1769 BEQL 80 ¢s + SO LET IT THRU ANYWAY 
084C 1770 IF STATE <QUOTING,EDITING>,165$ ; NO THEN DROP rf aN WE ARE EDITING 
FDIE 31 0853 1771 167$: BRO 51$ 
FD6A 31 0856 1228 164$: BRW- TERMFOUND ; TERMINATOR DETECTED 
FEOA 31 0859 177 1668: BRW ESCINPROG ; ESCAPE SEQUENCE INPROGRESS 
F7A6 «31s OBS. «Co1774 «165$: + «=BRW GETNEXT : GET THE NEXT 
32 AG) 6 BS sSCOO8SF «61775 800$: TSTwW TTYSwW_ RB” WIINREST(RG) : ARE WE AT THE END oF THE LINE 
EF 13 0862 1776 BEQL 167$ ~ + YES THEN CR IS LEGAL 
F79E 31 0864 1777 BRW GE TNEXTCHAR 
0867 1778 
0867 1779 disable lsb 
0867 1780 
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67 17 gi ; 
67 1783 ; RECALLING 
67 1784 ; 
867 1785 ; DESCRIPTION: 
867 17 : : THIS STATE IS USED WHEN THE LAST COMMAND TYPED IS REQUESTED. 
0867 1787 ; THIS ROUTINE WILL REMOVE CHARACTERS FROM THE RECALL BUFFER THE 
0867 1788 ; ALLOW THE NORMAL INSERT CHARACTER LOGIC TAKE AFFECT. THE CHARACTERS 
0867 1289 ; tn THE RECALL BUFFER ARE PROCESSED AS IF THEY WERE NO FORMAT. 
0867 1791 ; INPUTS: 
0867 1798 ; RS = UCB ADDRESS 
0867 1793 ; 
0867 179% : OUTPUTS: 
0867 1795 : SEE MOVEREADATA 
0867 1796 — 
0867 1797 RECALLING: 
51 OOE4 C5 DO 0867 1798 MOVL UCBSL_TT_TYPAHD(R5) ,R1 : GET THE ADDRESS OF THE bi et arres 
25 13 086C 1799 BEQL 20% ; NONE THEN LET MOVEREADATA H ANDLE IT 
54 78 AS dO bBgS 1800 MOVL UCBSL_SVAPTE(R5) ,R4 : SETUP THE READ PACKET A DRESS 
53 OE Al 3c 608 1801 MOVZWL TTY$W-TA_RCLOFF (R1) R3 : GET THE ADDRESS OF THE REN CARACTER 
53 18 A143) «(OA «(0876 1 0¢ MOVZBL TTYSATTA-RCL(R1)C(R34, ; GET THE CHARACTER 
OE Al B6 087B 180 INCW TTYSwW_ TA_RCLOFF (R1) MOVE ON TO THE NEXT gy 
14 A1 OF Al Bi O87 1804 CMPW 89s TTYSWTTA-RCLOFF(R1), TTYSu_ TA_RCLSIZ(R1); ARE WE FINISHED 
07 18 0883 1805 BGEQ 5$ HEN TUR RECALL AND CONTINUE 
40 AG OE Al B1 0885 1806 CMPW TTYSW_TA_RCLOFF(R1), TTY$w -R8 TXTSIZ(R4); A RE WE GOING TO OVERFLOW 
04 19 O8BA 1807 BLSS 108 ; SERS BUFFER 
088C 1808 5$: CLR_STATE RECALL : YES THEN MAKE pt by LAST TIME 
FCES 31 0890 1809 10$:  BRW” INSERT CHAR : AND INSERT THE CHARACTER 
FC97, ss «331. —«s« 0893 =: 1810 208: BRW MOVEREADATA ; ABORT EXIT 


<_—_ 


LL sss sss 
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p66 ! 1 -SBTTL Post typeahead character action routines 
0 96 1814; 
96 1815 : BACK _CHAR 
38 181? ; Move backward a single character. 
0896 1818 BACK_CHAR: 
3A AG B 896 1819 TSTwW TTYSW_RB_CPZORG(R4) ; START AT ZERO? 
03 13 0899 1820 BEQL 10$ ; YES THEN NO SPECAIL ACTION 
0885 30 0898 1821 BSBW ZERO 3; NO THEN MAKE SURE WE DO 
30 AS «6B? «C(OB9E «=C18 § 10$: DECW TTY$O -RB_LINOFF (R4) ; BACKUP A ‘ere 
2A 19 Baal BLSS 50$ ; AT THE END THEN DON’ ’ ALLOW IT 
32 AS OBE A3 1824 NCW TTYS$W_RB tae e ; UPDATE THE REST POINTER 
51 30 A4 3C O8A6 1363 MOVZWL TTY$W RB -LINOFF(R4),R 3; GET THE he raet TO THE CHARACTER 
2C B441 9A OQOBAA 1826 MOVZBL aTTY$C_RB RITTER R3; ie we CTER 
53 09 91 OBAF tH CMPB #TTY YSC~TABCRS ; IS THIS 
05 12 O8B82 1828 BNEQ 20$ 3; NO THEN CONTINUE 
08B4 144 SET_STATE TABRIGHT ; ELSE MARK Mog INFORMATION 
51 O01 CE 0889 1830 
067 30 O8BC 1831 BSBW CHA CHECK THE erie OF THE CHARACTER 
OOF C 6.5 3 A3 Obes 1832 SURW3 R3, utase TT_CURSOR(RS), thysw -RB_CPZCUR(R4); UPDATE THE CURSOR POSITI 
08C6 1833 IF _STATE NOECHO,60$ 
07E7 31 th ieee BRO UPDATE _ CURSOR ; SET THE CURSOR TO IT'S NEW LOCATION 
30 AS «684 «6(OBCD «C1836 50S: CLRW TTYS$W_RB_LINOFF (R4) ; RESET THE POINTER 
F9CD 31 O08D0 1837 60$: BRW DROP ; AND DROP THE CHARACTER 


20$: MNEGL #1,R 4 ; GOING BACKWARDS TO 
= 


TTYCHARO 
v04-001 


0 
2D 48 a3 
54 0000'CF 


1¢ 48 A 
1744 a5 OC 


51 78 AS 
3A Al 
04 


18 
05 48 AS 
54 0000'CF 


075E 
FC1D 
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4 } 1839 .enab 
D3 1841 : CONTROL R P 
03 1 46 
D3 (184 hen ii Lf _ST 
D? 1844 IF “NO 
E1 O8DB 1845 t 
DD 1 46 
EO 184 
9 O8EO 1 48 100$:  MOVAB 
E71 O8€5 1849 110$: BBC 
£7? 1850 
E1 OBEA 1851 BBC 
6 fF 1 38 
DO OBEF 185 MOVL 
B5 0 F3 1854 TSTW 
12 O8F6 1855 BNEQ 
O8F8 1 36 SET_S 
E1 O8FC 1857 1208: BBC 
O8FE 1858 
9€ 0901 1859 MOVAB 
0906 1860 130S: 
0906 1861 SET_STA 
31 090A 1868 BRW” 
090D 186 
31 090D 1864 150$: BRW 


15 
ve. ae 


54 
(40) 
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on routines 5-SEP-1984 04:16:1 TTDRVR.BUGSRCITTYCHARO.MAR; 1 
le lsb 
ROCESSING 
ATE <ESC>,150$ 3 NO ACTION IF ESCAPE OR NO ECHO 
NOT_S “Hs NOE CHO. 1008 + BRANCH IF ECHO 
UCBSL VBEVDEPNDD CAS) , 150$; BRANCH IF NOT LOCAL ECHO 
W*TTYSA_CTRLR,R4 ; ADDRESS MULTIECHO STRING 
#TT2$v_EDITING,- 
UCBSL “BEVDEPNDS(R THEN USE NORMAL ECHO STRING 
#TTSV=SCOPE, ease “DEVDEPEND RS) 308; DON T skip STU 
3; ON D COPY TERMINAL 
UCBSL_SVAPTE (RS) ,R1 : oer THE “Bacher ADDRESS 
TTY$W-RB_CPZORG(R1) : WERE WE A THE FIRST COLUMN WHEN 
120$ ~ : WE STARTED T HE READ 
TATE <SKIPCRLE> ; NO LINEFEEDS AFTER <CR> 
#TT2$V_A IS IT AN ANSI CRT 
UCBSL SEVDEPNDS<RS) 1308; NO THEN USE NORMAL ECHO STRING 
W°TTYSA _ANSI_DEOL ,R4 : YES THEN WE CAN USE CRT MODE 
TE <EDITREAD> ; SET CONTROL R STATE 
STRTMULTI ; START MULTIPLE OUTPUT SEQUENCE 
MOVEREADATA 


Me anh 


- Terminal driver character 


Post typeahead character action routines 


utput  feutt Bo fan 138 
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“SEP-1984 04:16:19 Et TORUR.BoesRCHT Yen mF 
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ou 
o-- 


; CONTROL U PROCESSING 


00000 
—b 


WWW IROOM 3 2 


B 
If STATE ESC,10$ 
TSTW 


kd dd td 
90909098 NINN SINS NIOOOO 
WR OODONAUSWN—OO0 

—_ 

So 


COOOWMunil£ Swim © 
09000000 CO 


COOoQooooooooooooo 
COWOOODOOOOOOOOOOOOOO 


UNUM E BRL SE 
= WD COW S COMIN ND NUIWON P NSO 


@wo--9007 00 o-- OD 
SoSooooo 

wooouovuon 

‘09 CD Cd Co C9 CD CD C9 CD GL CD 

00000 CDCDCD 


ooo 
ODWNAOUEWN "OQ OONOUS 


DELESCAPE ; DELETE THE ESCAPE SEQUENCE 
; IF IN ESCAPE SEQUENCE THEN DELETE ESCAPE 
TTYS$W_RB_LINOFF (R4) ; ANY DATA TO CONTROL-U? 
50$ : NO THEN DON'T DO THE WORK 
TTY$W_RB_LINOFF (RG), TTYSW_RB_TXTOFF(R4) ; CLEAN OUT THE TEXT OFFSETO 
TTY$B-RB_ECHLEN(R4) 7 CLEAN THE EXTRA 
TTY$W-RB-CPZCUR(R4) ; MOVE TO THE BEGINNING OF THE LINE 
TTY$W-RB-CPZORG(R4) + WAS THIS AT THE RIGHT 
12$ : NO THEN USE THE OLD METHOD 
#TTYSK_ER CLRREST,TTYSW_RB_MODE(R4); EXIT WHEN NOT DOING ANYTHING EL 
TTYSW_RB_CINREST(RG) ~; TS THERE A REST OF THE LINE 
13$ : NO THEN HANDLE 
#>MCRO,R1,R2,R3,RG,RS> ; SAVE THE REGIST 
TTYSW_RB_CINOFF (R45 ,R1 T TH NUMBER OF ¢ RACTERS 
TTYSW-RB “LINREST (RSS ,aTTYSL. RB_LIN(R4)ER1 avTyse _RB_LIN(R4); 


#°M<RO,R1,R2,R3,R4,R5> =; AND RESTORE THE REGISTERS 
Tr ys. RB_CPZORG(R4S ; WA st HIS AT THE RIGH 


14 NO THEN USE THE OLD METH 0D 
#TTYSK_ER_CLRECHO, TTY$W. 8B MODE (RS); SETUP THE NEW ELHO MODE 
TTYSL_RB_CIN(R4), fTYSL_RB_ECHSTR(R4S; THE LOCATION OF THE FIRST CHAR 
TTY$W-RB-LINREST(R4), shot $8 RB_ ECHLENTRG)S AND THE LENGTH 
TTY$W-RB~CPZCUR(R4) D7GO ALL THE WAY TO THE BEGINNING 
TTYSL-RB-LIN(R4) ,TTYSL_ PY TXT(R4); ARE WE ON THE FIRST LINE 
14$ -NO THEN N CONTINUE AS USUAL 
#TTYSK_ER_PRMECHO, TTY$W RB MODE(R4); ECHO THE PROMPT TOU 
TTY$SW Kab _CINOFF (R4) ; Now ZERO int LINE OFFFSET 

IF STATE NOECHO,15$ : BRANCH IF ECHO 

MOJAB  W°TTYSACTRLU,R4 + ADDRESS MULTIECHO STRING 
110$ + CONTINUE 


MOVEREADAT : 


BR 
she gastate oe CURSOR> 


CTRLR 


; : NO DATA TO CONTROL-U 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee SS SS  S"QOOOOOOSCSCSOOOO0O0nO 


WOWOOOOOOOOO000000000 00MM E 
SOWDWNAO UES WN OO OONOAOULS WN SO 


TTY$SW_RS_LINREST(R4) ANY DATA fia wie POINT 


15$ 3 * YES THEN JUST RETUR 
TTYSW_RB_TXTOFF (R4) ; 1S THERE ANY REASON 10 DO THIS 
15$ : NO THEN DON'T BOTHER 
TTYS$W_RB_TXTOFF(R4) : REMOVE THE LAST CHARACTER 
F IND_BOL~ : N FIND THE 

; OF THE PREVIOUS 
TIYSW_RB_TXTOFF(R4) ; IS THERE ANY MORE DATA LEFT 
57$ : NO THEN JUST MAKE CURE ThE PROMPT 
#TT2$V_ANSICRT,UCBSL -pevbepnoe (Rs). 558; REECHO ON NON ANSI TERMINALS 
TTY$W_RB_CPZORG(R4) ~ ; WAS THIS 1 fu HE RIGHT 
55$ NO THEN USE T HE OLD METHOD 
TTY$W_RB_LINOFF(R4), TTyYs@ _RB_ TRIOFF CRG) DELETE THE LINE 
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0 AS B4 9A9 1921 CLRW TTYSW_RB_LINOFF (R4) P 
64 C AG D1 9A 19 ¢ CMPL TTYSL =RB_ LIN(R4) ,TTYSL_ Rb_ tx T(R4) a pets B “wy! NEED TO BE ECHOED 
oe 12 0980 19 BN “NO THEN T ECHO A PROMPT 
44 AG 0 98 098 1924 tg AML ER_PRMECHO, TTYSW_ RB RODE CR): ON SET ¥ 10 ECHO THE PROMPT 
AS 96 0986 1925 RB B_RB_ECHLEN(RS4)  ~; RO STRING TO OUTPUT 
Bees 13 § ct B STATE EDR TRERD ; TELL THE REST OF THE SYSTEM ABOUT THE PROM 
38 AG)OBS $380 1928 60$: CLRW TTYSW_RB_CPZCUR(R4) ; CLEAR THE CURSOR POSITION 
09C0 1929 SET_STATE SKIPCREF ; SKIP THE FREE LINEFEED 
weapon, 9E +44 1930 MOVAB TTYSA ANSI_UPCEL ,R4 ; GET THE STRING ADDRESS 
069D 31 0O9CB 133) BRu STRTMULTI ; AND DELETE THIS LINE 
O9CE 1932 disable lsb 
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SCE 1934 
9CE 1955 ;+4¢4 
ore 13 § 3 DELCHAR = DELETE CHARACTER ROUTINE 
ace 12 3 ; FUNCTIONAL DESCRIPTION: 
9CE 1940 ; THIS ROUTINE DELETES THE LAST TYPED CHARACTER FROM THE READ BUFFER. 
O9ce 196] ; THEN IT SETS UP THE PROPER ECHO SEQUENCE FOR THE DELETED CHARACTER. 
9CE 1908 : INPUTS: 
SCE 1944; 
9CE 1945; Re = ADDRESS OF TTY STATE VECTOR 
9CE 1366 ; R5 = UCB ADDRESS 
9CE 1947; 
OSCE 1948 ; OUTPUTS: 
pore 1949 ; 
9CE 1950; R2 = ADDRESS OF TTY STATE VECTOR 
O9CE 1951 ; R5 = UCB ADDRESS 
O9CE 1326 ;-- 
OSCE 1953 DELCHAR: : 
54 78 AS 00 99 1938 MOVL UCBSL_SVAPTE(R5) ,R4 ; ADDRESS READ BUFFER BLOCK 
344 1338 3; IF ESCAPE SEQUENCE IN PROGRESS THEN DELETE ENTIRE STRING 
09D2 1958 IF_STATE ESC,25$ ; DELETE ESCAPE SEQUENCE 
30 AS «= B? «(09D6 «1959 DECW TTYSW_RB_LINOFF(R4) 3; ANY DATA 
30 19 O9D9 1960 BLSS 28$ 3: IF EQL THEN NO 
51 30 A4 3C O09DB 1961 MOVZ2WL TTYSW_RB_LINOFF(R4),R1 ; GET THE POINTER 
53 26 B441 9A O9DF 1968 MOVZBL aTTVSC_RB_L{NCR4)CRII,R3; GET THE CHARACTER 
5 Op 91 O9E4 196 CMPB #TTYSC_CRIR ; IS THIS CHARACTER A RETURN 
22 13 O9E7 1964 288 3 YES THEN ADJUST THE LINE 
3C AS BZ: sCO9ED =—:1965 DECW TTYS$W_RB_TXTOFF (R4) ; ADJUST POINTER 
O9EC 1966 IF MOT state RNOETHO,5$ ; BRANCH IF ECHO 
00 €1 O9FO 1967 Bet #TT2$V_LOCALECHO,- 
6F 48 AS O9F 1968 UCBSL_BEVDEPND2(R5),30$ ; BRANCH IF NOT LOCAL ECHO 
O9F5 1970; 
U9F5 1971 ; TEST FOR SPECIAL DELETES 
O9FS 1906 . 
09 53 91 O9F5 1973 5s CMPB = saR3,, #TTYSC_TAB : TAB? 
03 13 O9F8 1974 BEQL 8$ 3 IF NEQ THEN OUTPUT JUST THE CHARACTER 
OAS 31 hod 1975 ARw 55$ 
65 44.05  0C 9 9FD 1976 8$ BBS #TTSV_SCOPE ,UCBSL_DEVDEPEND(RS) .40$; BR IF SCOPE 
1 nt 137 BRw 75$ ; BR IF NOT SCOPE 
0144 39 A05 1398 25$: BSBW DELESCAPE 3 DELETE ESCAPE SEQUENCE 
FB22 1 " 8 + 9 BRW MOVEREADATA ; AND GO BACK TO WORK 
3 AS =6B4 SOA 19 ¢ 28$: CLRW TTYS$W_RB_LINOFF (R4) 3 MAKE THE COUNT ZERO 
AG ° A 19 TSTW TTY$SW_RB_LINREST(R4) ; is there nothing left? 
51 All 1984 BNEQ 308 3; NO THEN JUST RETURN 
3C AG 8 A113 1985 TSTW TTYSW_RB_TXTOFF(R4) ; NO LINE WAS WRAPPED 
4C Ale 19 § BEQL 30$ ; IF THIS COUNT IS ZERO 
3C AG 8 A18 19 DECW TTYSW_RB_TXTOFF (R4) > REMOVE THE LAST CHARACTER 
OSAE 0 aie + 3 BSBW FIND_6OL : vES Hi CALCULATE THE NEW BEGINNING 
33 48 AS) 618 )~=6—E1 S=SCOAIE §=—1990 BBC #TT2$V_ANSICRT,UCBSL_DEVDEPND2(R5),120$; REECHO ON NON ANSI TERMINAL 


TTYCHARO - Terminal driver character out ut r gut -JAN-1 AX/VMS Macro y04-00 
v04-001 Post typeahead character act utput 6 nes 5-SEP-1 1382 bf: 8: § TTDRVR. BUGSRC TTYCHARO.MAR; te aT $ 


A23 1991 T TTY$W_RB_CPZORG(R4) 3 WAS THs AT TH RIGHT 
BNEQ . = N USE T OLD METHOD 
aTTY$K ER. CLRECHO TTy$u * pone (Re) ECHO F HE DATA 
TTY$w_RB_C NOFF (RA) «7 EN(R4); AND THE oe RING TO OUTPUT 
TTY$L-RB~ “CINGRO) I HSL. "e- fe aes AND THE A DRESS 
TTY t “RB-LIN(R4) .TTYSL— =RB- TERE) $ AP ROMPT NEED TO BE ECHOED 
BNEQ 1108 ~ “NO THEN DON'T ECHO A PROMPT 
MOVZBW #TTYSK_ER_PRMECHO, TTYSW he _MODE(R4); SET UP TO ECHO THE PROMPT 
SET_STATE <SKIPCRLE EDITREAD> ; SKIP THE FREE LINEFEED 
MNEGW #2,TTYSW_RB_CPZCUR(R4) ; DON'T RESET CURSO 
MOVAB TTYSA_ANSI_OPCEL,R4 : GET THE STRING ADDRESS 


BRW STRTMULTI ; AND DELETE THIS LINE 


SET_ STATE <EDITREAD> : aes" THE LINE TO IT’S FULL VIGOR 
MOVAB TTYSA_CTRLR,R4 ; GET A NEW LINE 


BRW STRTMULTI ; and return to the main. loop 
BRw MOVEREADATA ; VECTOR TO CONTINUE 


=" 
oO 


3 
| 
: 
3 
| 


>>>>rrrrrrrrrr>r>,r 
ae se ee eS 


00000000’ EF 
0607 
FAC6 


: DELETE A TAB ON A SCOPE 


ios: UCBS$W_TT_CURSOR(RS) ; Have we wrapped? 
ere : Brenen to 0 ,simulate CTRL-R, if yes. 


BAC 
uCes@. " _CURSOR(RS), ucegu. SEVBUFSIZURSI ; At extreme right? 


45$ ; Branch if within screen bounds. 
47% ; Branch if beyond right edge 

R3 ; Adjust number of bechepaces’ for 
#*C7, R3 ; right-hand edge effects. 


OOFC ¢5 
47 
048A 


RoPOPoPoROPOROROPOPOnD «= FOROROTY o ROTURy 9 


SGOooooooeocoso csooo cGoOoOOoOOUOOOoUO 
I —I—MIOOO COOOO OCOCOowoovoovovos 


NOUS WN—OOON OUFEW [—"COOOVNOUS 


oS 
So 
an 
mo 
oO 
wn 

oOo 


RMN MR] 


MEU —OOOnNew FW —OO® 


FFFFFFFS 


66$ 3 i no Beckepece,, just delete at e e. 
BSW_TT_CURSOR(RS) djust cursor value for one less BS. 
#7, UCBSW_TT RAUL TILEN(RS) GET THE LENGTH CORRECTLY 


W*TTYSA_DELCRTTAB+1,R4; Get address backspaces string. 
70$ ; Go output them. 


~ 
w 
oe 


x 
~N 
em 
ee 


#7, R3 ; Adjust off-the-screen cursor 
R3, UCBSW_TT_CURSOR(RS) ; position for deleted tab. 
66$ . Go do delete-at-edge. 


->>r> —-0 PD F[CO-— Dw-w 
=oRM -—M WNW POPT —OWUN 


AS 
}. 
55 
8F 
53 
5 
53 
¢5 
CF 
45 
or 

3 
26 


NORMAL CHARACTER DELETE 
bss: 
BITB | #<TTYSM_CH_CTRL! TTYSM_CH_SPEC!TTYSM CH CTRL2!TTYSM_CH_CTRL3>,- 
W*TTYSA_TYPECR3J > TEST FOR SPECIAL 
BNEQ 62% : NON PRINTING CHARACTER 
BBC #TTSV_SCOPE ,UCBSL_DEVDEPEND(RS) ,75$; BR IF NOT SCOPE 


> IF THE CURSOR IS AT THE LEFT MARGIN AND DATA IS PRESENT, 


32 44 AS 


SOOQOOOCOGOCOOOOCOSOCSoOoO COCO COO 


RIPIPIFIPIPIPOPIPIPIPIPIPIPOPINININYD «—- POPOTU os POPOROTY 
5 et 
m—O0Ce 


BSS555>555555 


TTYCHARO 
v04-001 


54 
00DC 


5D 04 
54 


00DC 
64 


53 
0008 


54 


51 


53 
44 


OB A4 
5 


OOF C 


- Terminal driver character 
Post typeahead character act 


Ww" Warn 
@oDwom—oowvo 
Somv—sSam 


Mmo>ro-Ooanm 


> 
WAAIRINININ 3 3 = 3 =OOOOCOO 7 


CIN DW COW MD OU S OVNVUPOM Pu 


MPro 3 RoRoRORoROTO 


on routines 


Sos: = TSTw YCBSY_TT_CURSOR(RS) 
6 


; NORMAL BACKSPACE RUBOUT RESPONSE 
ies: MOVZBL #TTYSC_BLANK 


BGEQU§ 100% 
DELETE IS IN MID SCREEN 


MOVZBW 
70$:  MOVZBL #TTYSC_BS, 
BRB 90$ 
75$:  BBSS  #TTY$V_ST_DEL 


SNS NAAAAAAAA AOU SPL 


V 
MOVZBW RS eR 


OSOoSoooso OOOOOCOSOOCOCOCOOCOCOCSOOSSSOSOSOSOSSSOSOSO CODOCOOCOCOOCOO 


rere cness EUBEISE Ut 


; FORCE A CONTROL R IN STEAD OF A BACKSPACE. 
; eyesore AT LEFT MARGIN? 


BNEQ 
! FORCE CONTROL R FOR RUBOUT RESPONSE 
é0s: 
MOVL = UCBSL_ SVAPTE (RS) Rs 
TSTW © TTYSWIRB_TXTOFF (R4) 
$ Bra. OOVERE READATA 
¢§ BRW petit 
65S: BRU EDITREAD 


CMPW = UCBSW_TT LAURSGR(RS) /ucBsi. 


MOVAB W*TTYSA_SPACEBACK,R4 
(RO) UCBSH TT MULTILENCRS 


4(R2).95$ : 
MOVAB UCBsu BuFGUO(RS) ,R4 
MOV UCBs TT OnUL TILENCR 


$3: 6 ied Macro y04-00 Page 59 


TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (43) 
R IF NORMAL BACKSPACE NEEDED 


GET READ os ADDRESS 

DATA PRESENT 

IF DATA PRESENT, Be MM IN NORMAL FASSION 
IF NO DATA hag RE SPONSE 

DATA TO ECHO T - N ECHO 

START THE OUTPUT 


ASSUME SPACE IS FIRST CHARACTER 
DEVBUFSIZ(R5); AND EXTREME RIGHT? 


; IF YES THEN ONLY OUTPUT SPACE 


ADDRESS BACKSPACE STRING 

);AND THEN IT’S LENGTH 

; START T STRING vith BACKSPACE 
RT OUTPUT 


IF NOT FIRST ig Fl THEN OUTPUT CHARACTER 


,} ADDR ESS oie SPA 


P THE LENGTH OF THE MULTIECHO 


SET 
: AND Put THE VEHARACTERS THERE 
; OUTPUT "'\"' TO START OR END DELETE SEQUENCE 


8 

9 

0 

: 

fe i 

7 

rg Bos:  MOVZBL #*Aa\a,R3 ; FOR FIRST TIME OUTPUT ‘'\’’ 

28 90$: ROVE RA ,UCBSL_TT_MULTI(RS) ; ADDRESS STRING 

0 VCs UCBSL_SVAPTE (RS) ,R4 ; RESTORE, THE READ PACKET ADDRESS 

1 TSTW  TTYSWIRB_LINREST(R4) Y CHARACTERS TO THE RIGHT 

¢ BEQL 95$ ; 5 THEN HANDLE NORMALY 

4 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; SAVE NECESSARY STATE 

. IF STAT CHO, 92$ 

¢ SET_STATE E <EDITREAD> , SET THE EDIT ECHOING STA TE 

92$: MOVZWL B_LINOFF (R4) : GET THE OFFSET TO THIS CHARACTER 

8 avec _RB_LIN(R4) CR YSL_RB_ECHSTR(R4); SETUP THE ADDRESS TO STAR 
89 MOVZBL a@TTYS$L_RB_ECHSTR(R4 ; GET THE CHARACTER BACK 

0 MOVZBW #TTYSK-ER-CLRECHO,T _MODE (R4) ; CLEAR TO THE END OF LINE THEN E 
91 MOVE =—-TTY$W_RB_CINREST(R4) , TTYSB_RB_ECHLEN(R4) AND THE t NoTH 

36 MNEGL #1,R17 ; Set Gp to find backward s 

9 BSBW CHAR SIZE FIND THE SIZE OF This CHARACTER 

94 SUBW3 R3,UCBS$W_TT_CURSOR(RS), Thysw.. RB VOPZCUR (RG) ; SUBTRACT OUT THE L 
095 MOVZBL #1,R2 : SETUP R2 AS 1 CHARACTER 

96 MOVC3 TTYS$W_RB_LINREST(R4) ,- 


—_—-- 


J 15 
TTYCHARO = Terminal driver character output rout’ -JAN-1985 47:49:38 yen ivns Macro v04-00 Page $9 
v04-001 Post typeahead character action routines 5=-SEP-1984 04:16:1 TTDRVR.BUGSRCITTYCHARO.MAR; 1 (43) 


14, page 33 2097 @TTYSL_RB_ECHSTR(R4)CR2],@TTYSL_RB_ECHSTR(R4); COMPRESS THE STRING 
BA 0840 2098 POPR #*M<RO,R1,R2,R3,R4,R5> ; SAVE NECESSARY STATE 
F649 31 OB42 2100 958: BRW FORMAT_CHAR ; START UP OUTPUT 
0B4 101 1008: 
OOFC cS) «6B? «(0845 21 é DECW  UCBS$W_TT_CURSOR(RS) ; ADJUST CURSOR 
F603 31 0B49 210 BRW OUTPUTANDWAIT ; VECTOR FOR SPACE ONLY RESPONSE 


K 15 
TTYCHARO = Terminal driver character output routi memes F 1739238 eyes Macro 9g 
4 04:16:1 


bf Pa 
TTDRVR.BUGSRCIJTTYCHARO.MAR; 1 


e 61 
(45) 


v04-001 Post typeahead character action routines 5-SEP-19 
B4C 2105 
BS 1 § 34+ 
BoC ; DELETE AN ESCAPE SEQUENCE IN PROGRESS 
dad 1 § ; THIS ROUTINE IS USED BY THE CONTROL U AND DELETE LOGIC TO RESET 
Bee 110 3 AND DELETE THE ESCAPE SEQUENCE IN PROGRESS 
B4C 118 HDELESCAPE: ; DELETE CURRENT ESCAPE SEQUENCE 
51 58 AS DO OB4C 211 MOVL UCBSL_IRP(RS),R1 : GET ADDRESS OF PACKET. 
3C AG 3A Al A2 O0BSO 2114 SUBW —s IRPSLIMEDIA4+2(R1),TTYSW_RB_TXTOFF(R4); ADJUST TRANSFER SIZE FOR SEQU 
8 Al D4 0B5 115 L IRPSL-MEDIA(R1) : ESCAPE LENGTH 
0838 116 CLR_STATE <ESC,BADESC> : CLEAR ESCAPE 
05 OBSE 2117 10$: ; RETURN 


TTYCHARO 
v04=001 


FS 


53-30 AG 
5 


F 
53) ae “ 
ES 00000000'EF 


37 

50 9-30 A4 
50 

51 01 


5 

34 
2 ar 
oc 07900000" tr 
30 A 


uw 
~m 
So 


30 A4 


Du mu 


oOo 
SOMO FLINVO VYOUCTOWNO WWwMmOoO 


“ 
~m 


53 2C B4 
E5 00000000' 
0100 C5 


OOFC C5 
38 


WVVIVPLPWIwMIT7 MnALlLloww 


~™ 
oo 
— 
+o 
S 
Pre 
oe 


~ 
o 
— ww 
or 
= 
S 
= 


44 A4_ 01 
OB AS 832 AG 


Ww 
SSD DDDODS 
Seo pa, 


GNVMVIOEONS SP SVS 


WiIWNnononononononononeng 


o,rwono 
SHO DODDS 


mo-OW 
6900 C9 09 08 -I-NI 


a a se ss 8 > at ss 8 2 


MoPoRoPoPoPoTorofpony 


3s 


SSSDDooS 


woo 


cory 


MEFs M—OOODNOUSW —M—OOONOULSUMN 


SPP PLP 


OmMDol fro na 
POPOPROMD = PROTORITO  FOROPUPOROPOPOROrofofnorfng 
Rr ee er er er ee rr ir ir ir ir ir ir ir ir ir rs 


—PrPOnNooo —-CCoO ~SONRMOnD 
SHOOAA APH OOAGV VIM NMIMMMLeee 


mo-9T0OWwWD —Owe mo—-CcT7To 


= 
oOo 
UM OA & SMO Ooloouwo—""O-~N 


rr 


CONGO FW MOO BNO SW OOONC 


NAMMMMMOCSOVSCMNOMOO 


SHOSHOSHOSSOOSOD 


- Terminal driver character 
Post typeahead character ac* 


; DELETE WORD 


: DESCRIPTION: 


on routines 5-SEP-19 


L 15 
utput routi §-JAN-1985 17: 
, als 


4 


9:5 AX/VMS Macro y04-00 Pa 6 
4:16:1 TTDRVR.BUGSRCIJTTYCHARO.MAR; 1 a (88) 


; DELETE WORD TO THE LEFT OF THE CURSOR 
GODEL: BRW DELCHAR 3 ACT AS IF A DELETE WAS TYPES 
DROP_CHAR:BRW DROP ; DROP THE CHARACTER 
DELETE_WORD: 
OVZWL TTYSW_RB_LINOFF(R4),R3 ; GET THE pOfF Ser 
ECL R3 : SUBTRACT 1 
LSS omer CHAR ; no charantoni then handle suchly 
MOVZBL aTTYSL_RB_L indy Rs) »R3; GET THE CHARACTER AT THIS POINT 
BS 3, TTYSA_ phe X,GODEL: IF THIS CHARACTER 
: IS A PREFIX THEN DELETE ONLY IT 
PUSHR #*M<RO,R1,R2,R4,R5> 
MOVZWL TTYSW_RB_LINOFF(R4),RO ; GET THE CURRENT POSITION 
PUSHL RO ; SAVE THE OFFSET 
MNEGL #1,R1 3 WE ARE MOVING BACKWARDS 
CLRL. = R2 ; CLEAN OUT THE CHARACTER POSITION COUNTER 
10$: DECL RO ; MOVE ONE CHARACTER TO THE LEFT 
BLSS 30% ; WHEN DON é ash Y SO 
MOVZBL @TTY$L_RB_LIN(R4)CROJ,R3: GET A CHARACTER 
BBC R3,TTYSA_QORDTERM,20$ : SKIP OVER TERMINATORS 
MOVW RO, TTYS$W_RB_LINOFF(R4) ; UPDATE LINOFF TO MAKE TAB DELETION WORK 
BSBW = CHAR_SIZE ; GET THE LENGTH OF THIS CHARACTER 
ADDL R3,R2 : UPDATE CURSOR POSITION 
BRB 10$ : AND CONTINUE 
20$: MOVW  RO,TTYSW_RB_LINOFF(R4) ; UPDATE LINOFF TO MAKE TAB DELETION WORK 
BSBW HAR_SIZE : GET THE LENGTH OF VHIS CHARACTER 
ADDL ; : UPDATE THE POSITION 
DECL ; KEEP Mov ING 
BLSS 308 ; UNTILL THE END 
MOVZBL @TTYSL RB LIN(R4)CRO],R3; GET ANOTHER CHARCTER 
BC R3,TTYSA _QORDTERM, 208 3; KEEP MOVING UNTILL NOT A TERMINATOR 
30S: INCL RO : GO FOWARD A CHARACTER 
MOVW R2,UCBSW_TT_BSPLEN(RS) ; ECHO THE RIGHT NUMBER OF BACKSPACES 
SUBW3 R2,UCBSW_TT_CURSOR(R5) ,TTY$W_RB_CPZCUR(R4); SETUP THE CURSOR POSITIO 
POPL._—iR1 » GET THE CURRENT POSITION 
SUBW3 RO. RI Re : GET THE NUMBER OF C HARACTERS DELETED 
SUBW TTY$W_RB_TXTOFF(R4) : AND REMOVE THESE CHARAC CTERS FROM THE COUNT 
MOVAB Betta _R6 weit cs eet RB_ECHSTR(R4); GET THE ADDRESS FOR UPDAT 
MOVC3 TTY$W_RB_LINREST(R4).- =; DELETE THE WORD 
shh RB_LIN(R4)CR15, “attyse _RB_ECHSTR(R4); 
POPR <RO,R1,R2,R4,R5> ; RESTORE THE STATE 
IF STATE N NOECH HO,4 
ser STATE <BACKEPAE EDITREAD> ; BACKSPACE OVER THE WORD THEN ECHO EVERYTHI 
mOV7BM STTYSK ER CLRECHO, TTYSw_ Ra _MODE(R4); SETUP THE MODE FOR EDITECHOING 
TTYSW ‘nb RCINREST Cha) TT YSB> RB_ECHLEN(R4); AND THE LENGTH TO ECHO 


TTYCHARO 
v04-001 


- Terminal driver character 
Post typeahead character act 


F408 31 OBFA $120 40$: BRW 
OBFD 2171 


} 


4 1 
utput r gut: 
on routs nes 


GE TNEXTCHAR 


-JAN- 
-SEP-1 


198e 4:96:19 


AX/VMS Macro y04-00 Page 63 
TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (46) 


; GET THE NEXT CHARACTER 


TTYCHARO 
v04-001 


BFD 

BFD 

BFD 

BFD 

fare 

BFD 

OBFD 

OBFD 

53 7D 8F 91 OBFD 
06 13 0C01 

53 7E 8F |= 91s: OC 03 
08 is 0C07 

39 44 AS 07 €0 O0C09 
53 18 «699A = OQCOE 
0Cc11 

0C¢11 

0¢11 

bei) 

Ci 

F887 930 =0C19 

0103 cS 51 90 OCcIC 
48 AS «BS O21 

51 58 AS DO 0024 
38 Al_ 53 80 0C28 
3A Al RO 0cec 

51 3C AG C OC2F 
00 6441 18 90 0C33 
3C AS =6B6 O08 

0C38 

OC3F 

F953) 351 C44 

0C47 

bees 

C47 

FAI8 31 0C4B 

OC4E 

F927, 331s: OC4E 

0C¢51 

0C¢51 

0¢51 

0c¢51 

F3A9 «31 —-0C59 


N 15 
- Terminal driver character output routi 
Post typeahead character action routines 


~JAN=1985 £338 
“SEP=1984 


Escape. Char 


for new eight bit terminals. 


CHANGE 


173 i+ 

174 : 

175 : 

178 : Possible escape gris ty found, could 

17 : lower case terminals or could be a csi 

178 3; ALL cases must be handled ph AMG CG 

180 ESCAPE CHAR: 

181 CMPB #TTYSC_LOWESC1,A3 

1 § BEQL 47$ : 

1 CMPB #TTYSC_LOWESC2,R3 

1% BNEQ 52$ Y 

185 47$: BBS aTT$v LOWER UCBSL _DEVDEPEND (a5 

186 MOVZBL #TTYSC_ESCAPE.R3 ~ ; 

+ 1 52$: 
$183 ; PROCESS ESCAPE SEQUENCES AND ESCAPES 
2191 IF_NOT STATE <ESCAPE ,EDITING>, 55S; NOT AN 
$138 GsBy ESCINIT 3 
219 R1,UCB$B_TT ESC(R5) 

319% CORY TTY$W_RB-ESCTKN(RG) 

195 MOVL UCBSL~IRP(RS) ,R1 3 GET 
2196 MOVW $L DIACRI) 3 SET 
2197 INCW IRP$L_MEBIA+2(R1) 3 STAR 
2198 MOVZWL TTY$W"RB_TXTOFF(R4),R1 : GET 
2199 OVB #TTY$C_ESCAPE aTTY$L_RB_TXT(R4 
2200 INCW TTY$W_RB_TXTOFF (R4) 3 AND 
$60] IF_STATE ESC,60$ 

208 ET_STATE ESC ; BEGI 
320 CHECK_BUFFER 3; INSE 
2204 
2205 51$: 

2206 IF _NOT_STATE ESC,55$ 
$607 BRO ESCINPROG ; ESCA 

208 55$: 
$50 BRW INSERT_CHAR ; ELSE 
gol) : 3 ALREADY IN ESCAPE MODE THEN MAKE THIS BAD 
$518 bos: SET STATE <BADESC jfoL : 

2014 BRW GETNEXT 


AX/VMS Macro 


04-00 
TTDRVR.BUGSRCJTTYCHARO.MAR; 1 


Page 64 
. (47) 


be an altmode for 


: ALT MODE? 
+ ALT MODE? 


),51$; LOWER CASE TERMINAL CONTINUE 
CHARACTER TO ESCAPE 


ESCAPE TERMINAL THEN EXIT 


HANDLE THE ESCAPE PREFIXES 


OR SIZE 
PLACE TO STORE THE ESCAPE 
1]; AND PLACE - CHARACTER IN THE 
REMENT THE WORL 


SCAPE SEQUENCE 
T The CSCAPE AT THE END OF THE BUFFER 


PE IN PROGGRSS THEN CONTINUE | 
INSERT THE CHARACTER 


+ 


B 16 
TTYCHARO - Terminal driver character output routi 


g-JAN-19 5 17:29:58 AX/VMS Macro v04-00 Page 65 
v04-001 Post typeahead character action routines 5-SEP=-1984 04:16:1 TTDRVR.BUGSRCITTYCHARO.MAR; 1 (49) 
CSC 221 

C i? ate 

¢ 18 : FORWARD. CHAR 
8 ¢ iy ; MOVE THE CURSOR FORWARD 1 CHARACTER POSITION. 

C 1 FORWARD_CHAR: 

é MOVZWL TTY$W_RB_LINOFF(R4),R1 GET THE OFFSET TO THE CHARACTER 
MOVZBL aTTY$C_RB IN(R4)ERII,R3: GET THE CHARCTER 
4 DECW TTY$wW_RB_CINREST(R4) ; FORWARD A CHARACTER 

0C68 5 BLSS 50% : AT THE END | THEN DON'T ALLOW IT 
OC6A 6 CLRL sR : GOING FCRW 
0 C : 7 BSBW_ CHAR SIZE CHECK aE OF THE CHARACTER 
6 f 3 ADDW3 R3,UCB$W_TT_CURSOR(RS), révit RB_ Seti y UPDATE THE CURSOR POSITI 
0C76 329 MOVZWL TTY$W_RB_LINOFF(R4),R1 ; GET THE OFFSET TO THE CHARACTER 
OC7A 2230 MOVZBL a@TTY$C_RB_LIN(R4)CRIJ,R3: GET THE CHARCTER 
OC7F 331 INCW  TTY$SW_RB CINOFF (RA) + UPDATE THE REST POINTER 
0 : 32 CMPB OO #TTYS$T_ ORB. : ARE WE FORWARDING OVER A TAB? 
0 223 BNEQ 10% + NO THEN CONTINUE 
OCB? 2234 BSBW TABRIGHT + YES THEN CHECK FOR A TAB TO [HE RIGHT 
OCBA 2235 10S: IF STATE NOECHO, copRoP 
0 : 236 BRO FORMAT_CHA ; THEN OUPUT THE CHARACTER TO GO FOWARD 
0C91 2238 50S: CLRW = TTY$W_RB_LINREST(?4) : RESET THE POINTER 
0694 2239 GODROP: BRW DROP : AND DROP THE CHARACTER 


TTYCHARO 
v04-001 


3A AS 

03 

0484 

32 AS = =30 AG 
30_A4 

O3EE 

64 2C A4 
0c 

OB AS (01 
AS =607 

3A AG 

1D 
00000001 "EF 
DB C5 

oope cS) (01 
38 AG 

B6 


38 AG = 3A_AG 
O3CE 
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- Terminal driver character output routi §8-JAN-1985 17 ge 


ae 


moO fOOwW 
COOONAOULSWNM —OOONOULWR OC OONOULS WR 


@o-OKnD Pw--W 


S mum ® 


J 


—y 
—s 
APOIOVOVOOOIOODAOOAIOIOIOOOAIOAOOOOOAOOAAOAOO 


MOVVVCCVOCCCOCOWWVWWIWIWS Sy PoOWowowowowowowvono 
Wm mm oO SN MODOLOM > NSO PN 


SOOOCSCSSOCOCOOCOOSOOSOOOCOOCOOOOoOO 
POPSPOPONONONONENY = PORE POPOROrTURononoNoNPonoron 


Wo 
—o 


9:5 AX/VMS Macro V04-00 e 
Post typeahead character action routines 5-SEP-1984 04:16: 38 LTT DRVR. BUGSRCJTTYCHARO.MAR: 1 fag (38) 
5; ++ 
; MOVE_BOL 
: DESCRIPTION: 
; GO TO THE BEGINNING OF THE LINE. 
hov VE_BOL: 
TSTW TTY$W_RB_CPZORG(R4) ; START AT ZERO? 
BEQL 108 : YES es NO SPECAIL ACTION 
BSBW ZERO CE ZORG ZERO ORG CURSOR IF WE HAVE WRAPPED 
10$ ADDW TTY$Q_RB_ LINOFE (RG), Trvsu RB CINRE ST (Ra): MOVE THE CHARACTER COUNTS 
CLRW TTY$W-RB_LINOFF (R4) ANB CLEAR THE NUMBER OF CHARACTERS WE HAVE 
BSBW TABRIGHT cH ECK FOR TABS TO THE RIGHT 
CMPL TTYSL ORB WLIN(R4) ,TTYSL ry TXT(R4); ARE WE ON THE FIRST LINE 
BNEQ 208 7°NO THEN JUST DROP IT 
mn NEGB TY$B_RB_ECHLEN(R4) CLEAN OUT TKE STRING TO ECHO 
OVZBW apt ER_PRMECHO, TTYSwW_ ip _MODE(R4); SETUP THE MODE 
se! STATE < EDITREAD> 
208: TSTQ TY$W_RB_CPZORG(R4) : stat AT ZERO? 


Bh EQ ES THEN NO SPECAIL ACTION 
MOVAB = TTYS$A_ANSI_DEOL+1,UCBSL_ it -MULTI(RS); GET THE ADDRESS OF A <CR> 


MOVL #1,UCBSW_TT MULTILEN(RS); AND re OUTPUT a <CR> 

SET ness <MULTITSKIPLF, SKIPCRLF>; SETUP TO DO A MULTIECHO 

CLRO TYSW_RB_ CPZCUR(R4) ; MOVE TO THE BEGINNING WHEN DONE 
BRB GODROP ; THEN DISPATCH 


; IF THE ORIGION IS NON-ZERO THEN MOVE THE CURSOR TO THE ORIGIONAL POSITION 


50s: MOVW TTY$W_RB_CPZORG(R4) ,TTYS$W_RB_CPZCUR(R4); SETUP TO MOVE BACK 
BRW UPDATE_CORSOR 
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v04-001 Post typeahead character action routines 5=-SEP-1934 04:16:1 TTERVR.BUGSRCITTYCHARO.MAR; fa9 (51) 
CE6 2g i p++ 
cee ti MOVE _EOL 
CE6 75 : ; DESCRIPTION: 
BCE® 26 MOVE TO THE END OF THE LINE. 
CE6 £8 #OvE EOL: | 
OB AG 3 AG 90 CE6 7 MOVB TTY$SW_RB_LINREST(R4) TTY$B ~ memento GET THE ebay dh TO ECHO 
51 0 AG 3C CEB 0 MOVZWL TTY$W_RB_LINOFF(R4) a1 THE OFFSET OF THIS CHARACTER 
a or} 9E cer 1 OVAB aTTY$C_RB_LINCR4)CRIJ, TT¥$L ERB -ECHSTR(R4); SETUP THE ADDRESS ALSO 
44 046 02 98 ocr B MOVZBW #TTYSK_ER_ECHLINE, TTYSW RB MODE(R4); AND SETUP THE MODE 
CF CLR_STATE TABRIGHT NO MORE yr 7 Me TO THE RIGHT SO 
OCFE 84 : NO TABS EITHER 
ores 285 IF_STATE NOECHO,10$ ; NO en THEN DON'T ECHO 
OD02 2286 set STATE EDITREAD THEN THE ST 
30 AG «632 AG SAU «DDG Ss - 2287 108: ppQ TTY$W_RB_LINREST(R4),TTY$w_ RB_LINOFF(R4); FIX THE COUNTS 
32 AG B4 OD0B 2288 crew TTY$W_RB_LINRES7T(R4) Se 
31 ODOE 2289 BRW GETNERTCAAR : GET THE NEXT CHARACTER 
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Post typeahead character action routines 


1 j++ 
: QUOTING 
4 : DESCRIPTION: 
5: INITIATE QUOTING SEQUENCE 


“SET_STATE QUOTING 
BRw GE TNEXTCHAR 


4 04: 
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sSET THE STATE QUOTE 
; AND CONTINUE ON 
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17:29:52 VAX/VMS Macro V04-00 P 9 
66:46:39 Ut ToNvR.pucsachttyouaro.mansse% ¢f3p 
p++ 

3 RECALL 


: DESCRIPTION: 
: SETUP THE NECESSARY STATE TO RECALL THE LAST COMMAND. 


RECALL: 
BBS #TRMSV_TM_NORECALL , TTYSL_RB_MOD(R4) ,20$ 
MOVL  UCBSL_TT_TYPAHD(R5S,R4 GET THE ADDRESS OF THE TYPEAHEA BUFFER 
TSTW ©=- TTYSWITATRCLSIZ(R4) ; CHECK THE SIZE OF THE BUFFER 
BEQL 0$ ; DON'T DO ANYTHING IF NO CHARACTERS 
CLRW  _TTY$W_TA_RCLOFF(R4) SCLEAN OUT THE OFFSET TO THE STRING 
SET STATE <RECALC,EDITREAD> ;TELL THE DISPATCHER THAT WE ARE RECALLING 
MOVE = UCBSL_SVAPTE(RS) ,R4 ; GET THE PACKET ADDRESS 
CLRW = TTYSWIRB_TXTOFF (R4) ; NO MORE TEXT 
CLRW © TTYSWIRB-LINOFF (R4) ; CLEAR THE LINE 
CLRW TTYSWIRBTLINREST(R4) — : EVERYTHING ELSE 
MOVL  TTYSL-RB-TXT(R4), TTYSL_RB_LIN(R4) 
BRw CTRLR ; THEN CONTROL=R THE READ 
10$:  BRW GETNEXTCHAR 
20$: BRW INSERT_CHAR 
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Post typeahead character act 


E4 
31 


0088 


on routines 5-SEP-1 TTDRVR.BUGSRCIJTTYCHARO.MAR; 1 (54) 


:" TOGGELINSOV 
secre . ; 
: oggel the insert/overstrike mode flag 
fOGGELINSOV: 
BBS #TTYSV_ST_OVERSTRIKE,4(R2),10$; TOGGEL THE OVERSTRIKE BIT 


C 
SET_STATE OVERSTRIKE 
108: BRW GETNEXT CHAR’ 
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v04-001 EDITREAD = READ EDITING STATE 7 -SEP-19384 et eet UT TORVR.Bugsec TTYCHARO.MAR; 1 . (56) 
9056 -SBTTL EDITREAD = READ EDITING STATE 
D56 p++ 
a036 8 ; EDITREAD = STATE TO ALLOW A READ EDITING SEQUENCE 
$026 rh 3 FUNCTIONAL DESCRIPTION: 
0D56 $06 ; WHEN ECHOING PARTS OF READS IT IS NECESSARY TO ECHO SEVERAL 
9096 33 ; STRINGS, THIS ROUTINE FILLS THAT NEED 
0D56 2345 ; INPUTS: 
ooze 18 3° 
0D5 47 ; Re = ADDRESS OF THE UNIT STATE VECTOR 
0D56 2348 ;: R5 = UCB ADDRESS 
0056 2349 ; 
0056 320 : OUTPUTS: 
0D56 Si; 
0D56 326 ; R2 = ADDRESS OF THE UNIT STATE VECTOR 
0056 2353 ; R4 = ADDRESS OF THE READ PACKET 
0056 2354 ; RS = UCB ADDRESS 
0D56 2355; 
0D56 $328 << 
0056 2357 EDITREAD: ; READ EDITING 
54 78 AS DO 0056 3338 MOVL UCBSL_SVAPTE(R5) ,R4 3 GET THE READ PACKET ADDRESS 
ODSA 2359 CASE TTY$W-RB_MODE (R45 , TYPE=W,<- 
ODSA 2360.- NORMAL, - 
OD5A 2361 CLRECHO,- ; ECHO WITH CLEAR BIT SET 
ODSA 2362 ECHLINE,- ; JUST ECHO WHAT IS SPECIFYED 
ODSA 236 UPDCURSOR, - ; UPDATE THE CURSOR POSITION 
ODS5A 2364 EXITING,- ; SETUP TO EXIT. 
OD5A 2365 MOVECURSOR,- ; ALLOW CURSOR TO BE UPDATED 
OD5A 2366 CLRREST,- ; CLEAR THE REST OF THE LINE 
ODSA 2367 PRMECHO,- ; ECHO PROMPT THEN CONTINUE | 
OD5A 3368 PRMECHO{,- ; CONTINUING STATE FOR PROMPTING 
ODS5A 2369 AESECHO,- ; ECHO AES STRING AND NOSTRING 
ODSA 2379 RVECHO,- 3 echo in the readverify yey 
OD5A 2371 SIMCEOL> 3 SIMULATE CLEAR TO END OF LINE 
Ope? 339g NORMAL: 
0D77 9376 IF_STATE <CTRLR,RDVERIFY>, 120$ ; HAVE WE COMPLETED THE CONTROL-R 
3A AG «6BS «O(0D83 237 TSTW © TTY$W_RB_CPZORG(R4) ; START AT ZERO? 
10 13 0086 2376 BEQL 25$ ; YES THEN NO SPECAIL ACTION 
OoFC CS) «BS SCOD8B 2377 TSTW § UCBSW_TT_CURSOR(RS) 3 AND WE ARE N 
OA 12 O8C 378 BNEQ 25$ ; YES THEN WE SHOULD FIXUP THE LINE 
3A AS =60B4 OOD BE 7 CLRW TTY$W_RB_CPZORG(R4) . DO THE FIXING 
0238 30 0091 2380 BSBW 3SséFLIND BOL ; FIND THE BEGINNING OF THE LAST LINE 
OOFC C5) «6 B4 (0D 94 381 CLRW UCB$Q_TT_CURSOR(RS) ; FIX THE CURSOR (CHANGED DURING FIND_BOL) 
0098 ¢ 25$: IF_NOT_STATE SKIPCRLF,119$ : NO THEN ARE WE DOING A CR <CEL> 
OD9C 238 SET STATE <SKIPLF> ; YES THEN SKIP A LEADING LINEFEED AND CONTI 
44 AG 06) «9B =SOODAO 386 MOV7BW #TTYSK_ER CLRREST, TTYSW_RB_MODE(R4); THEN CLEAR THE REST 
32 AG) «OBS OCODAG «2385 TS TTY$W_RB_CINREST(R4) ; CURSOR VALID? 
4 12 ODA7 ; 6 BNE 19$ ; YES THEN USE IT 
38 AG) «O01 AE s«OODAD MNEGW #1,TTY$W_RB_CPZCUR(R4) ; ELSE USE THE END POSITION 
DA 8 119$: SET STATE <CTRLRTEDITREAD> ; INDICATE THAT WE ARE OUTPUTTING THE 
34 AG «630 AG) sOAT «OODB 9 ADDSS TTY$W_RB_TXTOFF(R4), TTYS$W_RB_PRMLEN(R4) ,- 
51 DBA 2390 R1 :7GET THE NUMBER OF CHARACTERS TO OUTPUT 
07 13 ODBB 2391 BEQL 1208 ; IF NONE THEN DON'T BOTHER. 


4 
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v04-001 EDITREAD = READ EDITING STATE 6:1 TTDRVR.BUGSRCITTYCHARO.MAR; 1 (56) 
54 4A AG 9 DBD 3 MOVAB TTY$A_RB_PRM(R4),R4 ; GET THE ADDRESS TO START A 
0285 oC} 1 BRW STRTMOLTT_1 ; AND START THE STRING ECHOING. 
Ce 99 ; END OF CONTROL R 
51 14 AG 09 DC4 39 i208: MOVL TTYSL_RB_ECHSTR(R4),R1 =; CHECK FOR A CALLBACK 
a Dc8 38 CALLBACK 
DCA 99 MOVIFNEC 
32 AG 85 DCA 290 TTY$W_RB_LINREST(R4) : ANY MORE CHARACTERS ON THE LINE 
0 1 DCD 2401 BEQLU EXITING ~ : THEN EXIT 
008 31 ODCF 08 BRW MOV : YES THEN MOVE THE CURSOR 
44 AG BS bbe 8 EXITING: CLRW TTY W. # ; CLEAN OUT THE EDITING MODE 
14 AG D4 «ODD 404 RL CHSTR(R4) 
ODD8 2405 CLR _STATE <EDTTREAD, CTRLR,CTRLO,SKIPCRLF , TABEXPAND> 
F21E = 31 ODES 406 BRW GETNEXT 
ODE? 2408 ; IT MAY BE NECESSARY TO CALL THE EDITING CODE BACK TO DO SOME WORK OPERATION 
ODE? 499 3 THAT REQUIRED A ZERO ORIGIONAL CURSOR POSITION 
44 AG «BG ODE7 «2411 CALLBACK: CLRW TTS _RB -MODE(R4) 3 CLEAN QUT THE EDITING MODE 
14 AG D4 ODEA gle CLR TY$L_-RB_ECHSTR 
ODED 241 CLR STATE "<EDTTREAD EIR, CTRLO, SKIPCRLF, TABE XPAND> 
3A AG «BS SOODF9 41h TSTQ TY$W_RB_CPZOR MAKE SURE WE WON'T LOOP 
D4 12 ODFC 2415 BNEO EXITING’ : IF NOT SUCCESSFULL IN CLEAKING 
ODFE 2416 ; THE ORIGION THEN DROP THE CHARACTER 
61 17 ODFE 2417 JMP (R1) 
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v04-001 EDITREAD = READ EDITING STATE -SEP-1984 04:16:1 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (57) 
344 419 : 
34 r 9; 3; ALTERNATE ECHO STRING. 
44 AG 4 BO itd 4 § AeSECHO: MOVW aire ER_EXITING, TT¥$W_RB_MODE(R4); SETUP TO EXIT 
51 28 AG C OE04 24 MOVZWL TTY$W_RB_AESLEN(R4),R1 ~; THE LENGTH OF THE STRING TO ECHO 
54 24 AG DO QOE08 2424 TTYSL-RB_AES(R4) ,24 ; AND THE ADDRESS 
026A 31 OE0C 2425 BRW STRIMOLTT. 1 3; NOW MULTIECHO 
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TTYCHARO - Terminal driver character o 
v04-001 EDITREAD = READ EDITING STATE P=1984 04:16:1 TTDRVR.BUGSRCIJTTYCHARO.MAR; 1 (58) 
OEOF 2427 ; 
OEOF 2428 : Echo and clear to end of the Line 
OEOF 2429 
OOF 5480 eLRE 
OEOF 2431 Ser STATE <TABEXPAND> SET TO EXPAND TABS 
44 AG 06 9B 0E13 2432 MOV7BW #TTYSK_ER_CLRREST, ITVS Re MODE(R4); THEN MOVE THE CURSOR 
51 OB AS 9A QE17 2433 COMECHO:MOVZBL TTYSB_RB_ECHLEN(R4),R1 ~; SETUP THE NUNMBER OF CHARACTERS 
54 14 AG DO OFIB 2634 MOVL TTYSL“RB-ECHSTR(R4).RG : SETUP FOR MULTIECHO 
257 31 «~OEIF «2435 BRw STRTMOLTT_1 3 AND START THE MULTIECHOING 
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v04-001 EDITREAD = READ EDITING STATE -SEP-1984 04:16:1 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (59) 

E 437 : 

: r 8 i ; Clear to the end of the Line 

E 440 ELRREST: 

44 AG 05 9B OE 441 a oe ER_MOVECURSOR, TTYSwW RB_MODE (R4) 
38 AG OF § 188 a) W_RB_CPZCUR(R4) ; NEGITIVE CUR * MEANS DON'T UPDATE 

OB 444 MOVW UCBSW_TT_CURSOR(RS) ,TTYSW_RB_CPZCUR(R4) ; UPDATE THE CURRENT 

OES 2445 20$ CMPW UCB$W_TT_CURSOR(R5) ,UCBSW_DEVBUFSIZ(R5); ANYTHING TO CLEAR 

pEge i38 BEQL MOVECURSOR ; ott bay TO CLEAR THEN JUST MOVE THE 

0E39 2448 BBC #TT2$V_ANSICRT, gycese ADEVBEPND2(RS) 30$; IS IT AN ANSI CRT 

Reze 449 MOVAB TTY$A _ANSICEL, 3; GET A CLEAR To END OF LINE SEQUENCE 

0E45 2450 BRW dob Seem ty ; AND MULTIECHO IT OUT 

0E48 2451 for non-ansi term 

0E48 EL $0: MOVZBW orryee ‘ER. SIMCEOL,TTY$W_RB_MODE(R4); TELL IT TO COME BACK AND SIMULA 

OE4C 245 BRW SIMCEOL 
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v04-001 EDITREAD = READ EDITING STATE -SEP=1984 04:16:1 TTDRVR.BUGSRCIJTTYCHARO.MAR; ia 
peer 455 ; z 
Rect +2 ; echo the given data then exit 
44 AG 04 9B OE4F 2458 ECHLINE: :MOVZBW #TTYSK_ER_EXITING, TTYSW RB MODE(R4); EXIT AFTER ECHOING 
C2 11 OEF53 2459 BRB COMECHO ; AND GO TO THE COMMON CODE 


- 
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v04=-001 EDITREAD = READ EDITING STATE ~SEP-1934 04:16 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (61) 

SER 346. th to b é to it i l t 

; Cause e cursor to be move ° 's origiona osition 
bree See | : “ r 
0E55 2464 MOVECURSOR 
44 AG 06 9B OEFS5S 2465 MOVZBW #TTYSK_ER_EXITING, TTYSW_RB_MODE(R4); SETUP TO EXIT 
0258 31 O0EF59 2466 BRwW UPDATE_CURSOR ; AND UPDATE THE CURSOR 


TT 


oy 
TTYCHARO = Terminal driver character output routi mi mh $4 gt a4 6 AX/VMS Macro V04-00 Page 78 
v04-001 EDITREAD = READ EDITING STATE -SEP-1934 TTDRVR.BUGSRCIJTTYCHARO.MAR; 1 (62) 
OESC 288 3 ; 
pee rk} : Echo a prompt and a given amount of data then move the cursor to 
peat rh : the specifyed position. This handles the no prompt case correctly. 
0&5 47@ PRMECHO: 
51 34 AG 69 E5 47 MOVW TTYSW_RB_PRMLEN(R4),R1 ; GET THE LENGTH OF THE PROMPT 
11 1 E6 474 BEQL 40$ + NO PT THEN JUST ECHO SPECIFYED S'RING 
44 AG 08 98 E6 475 oh a errs ER “1 ee TTYSW. -RB_MODE(R4); SET THE NEXT STATE 
54 GARG OOE (E66 426 VAB_ _TTY$A_RB_PRM(R4) RA 7 GET THE PT'S ADDRESS 
BEGA 47 SEY STATE CSRIPERLE sciPte> ; SKIP THE FREE LINEFEEDS 
0206 31 OE73 $28 BW STRTMULTI_1 ; AND MULTIECHO THE PROMPT OUT 
per tt ; SETUP THE CORRECT CURSOR FCSITION FOR THE NO PROMPT CASE 
3A as BO E73 2482 40$:  MOVW  TTY$W_RB_CPZORG(R4) ,UCBSW_TT_CURSOR(R5) 
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EAD EDITING STATE EP-19 6:1 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 
484 ; 
i ; second part of prompt echoing if necessary. 
4 S PRMECHO1: 
488 TSTW TTYSW_RB_CPZCUR(R4) : SHOULD WE UPDATE THIS CURSOR 
489 BGTR ; NO_IF NO ZERO 
490 INCW tiysu -RB_CPZCUR(R4) : es THIS ante 
491 BLSS NO THEN DON'T RESET THE CURSOR 
492 MOVW dcesu_ TT_CURSOR(RS), TTy$su PBL CPICURCRS) ; RESET CURSOR POSITION 
493 50$: CLR shee. rite ee hc SKIPLF> ; CLEAN THE a Sa STATE UP 
494 TSTB B_RB _ECHLEN(R4) : DO WE HAVE ANYTHING TO ECHO 
495 BGTR roe 3: YES THEN “ECHO. THE SPECIFYED STRING 
496 BLSS 60$ : LESS THAN O EXIT 
497 BRW CLRREST ; ELSE THEN CLEAR THE REST OF THE LINE 
498 60$: CLRB TTY$B_RB_ECHLEN(R4) > CLEAN OUT THEE OFFSET JUST IN CASE 
499 BRW EXITING 
500 70$: BRW CLRECHO 
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v04-001 EDITREAD = READ EDITING STATE -SEP-1984 04: CTTDRVR.BUGSRCIJTTYCHARO.MAR; 1 (64) V 
EA ; 
BA ; read verify echoing (echo's a string replacing fill characters with clear characte 
0B AS 97 QEA 5 RVECHO: DECB TTYSB_RB_ECHLENCRS) : =. THIS CHARACTER OUT 
1 19 QEA 6 BLSS 20$ : ORE THEN 4 BOVE THE CURSOR 
53. 14 B64 QA OEA 7 MOVZBL @TTYSL_RB.ECHSTRiR«) ,R3 GET A CHARACTER 
' 64 14 A4 ODI cAB § CMPL TTYSL_RB_ECHSTR. RA) Ftyst RB LTXT(R4); 1S THIS PAST THE PROMPT 
OA 19 Dear 309 BLSS 108 NOTHEN DON'T CHANGE CHARACTERS 
53 47 AG OQ EB1 219 CMPB TTYSB_RB_RVFFIL(R4) ,R3 : az THIS A FILL CHARACTER 
04 12 OEBS 251 BNEQ 10$ HEN CON woe 
53 46 AG QA OEB? 216 MOVZBL TTY$B_ ne aRVFCLR(R4),! K3 t OTHERMI se ECHO THE CLEAR CHARACTER 
14 AG 6 3 2] 108: INCL TTYSL_RB-ECHSTR(RG) ; UPDATE TH 
F2CD 1 EBE 14 BRW FORMAT_CRAR ; ELSE FORMAT ih oe 
FFO6 = 31 tH 212 20$: BRW MOVIFNEC ; MOVE IF NECESSA 
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ter output routi 8-JAN-1985 17:29 04-00 Page 
STATE =3pN= 1382 boife; § Yt R.BUGSRCITTYCHARO.MAR: 1-9 8) 
: NON“ANSI CRT THEN SIMULATE CLEAR TO END OF LINE 
SIMCEOL: 
BBC #TTSV_SCOPE,- CLEAR TO END OF LINE IS MEANINGLESS 
UCBS$L~DEVDEPEND (RS) ,MOVE ECURSOR: ON HARD COPY TERMINALS 
SUBW3 Mitt TT_CURSOR(R5) -UCBSW_ DEVBUFSIZ (RS). R 
CHP R3,#8 ; OUTPUT IN GROUPS OF 8 
MOVAB TTYSA_TAB,R4 : SETUP TO ECHO 8 
BRW STRTMULTI 
10S: Nov7Bu ATTY$K ER_MOVECURSOR, TTYSWRB_MODE(R4); NEXT MOVE THE CURSOR 
UR ; SUBTRACT 1 FROM THE COUNT 
MOVAB TTYSA/TAB+1,R4 P 


BRW STRTMULTI_1 : AND ECHO IT 
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1 
4 04: TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (66) vo 
; set the current cursor position 
PDCURSOR: 
MOVW TTY$W_RB_CPZCUR(R4) ,UCBSW_TT_CURSOR(R5): UPDATE THE CURSOR POSITION 
BRW EXITING ; THEN EXIT 
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v04-001 Read service routines -SEP-1984 04:16:1 TTDRVR.BUGSRCITTYCHARO.MAR; 1 (67) 


ra 368 =n -SBTTL Read service routines 
EFA g348 : BACK_TAB 
EFA 278 : Calculates the cursor postion of the beginning of a tab while 
SrA 3 3 at the end of the tab. 
aca 343 : Implicit inputs: 
OEFA 2551 : R5 UCB address 
OEFA 226 : TTYSW_RB_LINOFF the current location off of LIN . 
OEFA 22 3 TTYSL_RB_LIN the address of the beginning of this Line 
OEFA 4; TTYSL_RB_TXT the address of the beginning of the data buffer 
OEFA 2555 ; TTYSA_RB_PRM offset from svapte to the beginning of the prompt 
Rece 228 3 TTYSW_RB_CPZORG cursor postion when the read started 
OEFA 2558 : Outputs: 
pec $23 3 R3 Mod 8 of the cursor position 
OEFA 2561 BACK_TAB: 
54 DD OEFA 206 PUSHL R4 3; SAVE R4& 
54 78 AS go OEFC 256 MOVL UCBSL_SVAPTE (RS) ,R4 ; GET THE ADDRESS OF THE READ BUFFER 
53 30 A4 C QOFOO 2564 MOVZWL TTYSW_RB LINOFF (R4) R3__; GET THE CURRENT LOCATION 
53. 2 B443 ««9E «(OF04 «2565 MOVAB  aTTYSC_RB_LIN(R4)CRSJ,R3; POINT TO END OF DATA 
7E D4& OFO9 206 CLRL =(SP) ; SET UP CURSOR COUNTER 
64 2C AS D1 OFOB 256 CMPL =‘ TTYSL_RB_LIN(R4), TTYSL_RB_TXT(R4); ARE WE ON THE FIRST LINE? 
06 13 OFOF 2568 BEQL 10$ ; YES THEN CONTINUE 
54 2c Og oY ori 28° ORE TIYSLAB_LINCRA) RG ; Se iat USE THE BEGINNING OF THIS ONE 
54 4A AG QE OFI7 2571 108: MOVAB TTYSL_RB_DATA(R4) ,R4 : POINT TO DATA START 
54 53 01 OFIB 276 20$: CMPL R3,R4 3; BUFFER START? 
23 13 OFIE 257 BEaL = 40 ; THEN REFERENCE POINT FOUND 
0 73 91 ors 574 CMPB -(R3) ,ATTYSC_CR 3 CARRIAGE RETURN? 
2 13 OF2 575 BEQL 50$ ; IF EQL THEN REFERENCE POINT FOUND 
09 63 91 OF25 278 CMPB (R3) ,ATTYSC_TAB 3; TAB? 
27) = 13) «OF28 «57 BEQL 50$ :; IF EQL THEN REFERENCE POINT FOUND 
18 63 91 F2A 2578 CMPB (R3) ,ATTYSC_ESCAPE ; IS THIS AN ES 
OF 13 OF D 2579 BEQL 30$ ; YES THEN REMOVE THE ESCAPE SEQUENCE 
9B 8F 83 3} ee 380 ity $82) -@TTVSC_CSI ; CSI°S COUNT ALSO 
20 63 91 OF35 286 cpeae (R3) .@TTYSC_BLANK 3 CURSOR CHANGE CHARACTER? 
E1 1F OF38 258 BLSSU 2S ; IF LSSU THEN NO 
6 D6 OFSA 2584 INCL (SP) ; ADJUST FAKE CURSOR 
DD 11 : 4 2 5 BRB 208 3; CONTINUE 
r3E $ ESCAPE INTRODUCER FO.IND 
005¢ 30 OFSE : 9 $0s: BSBW BSCAPC TAB ; REMOVE THE ESCAPE SEQUENCE 
db8 11 et 299 BRB $ 3; THEN CONTINUE 
+ 338 : RAN OUT OF BUFFER WITHOUT FINDING A REFERENCE POINT 
53 7BA DO OF4 94 408: MOVL UCBSL_SVAPTE(R5) ,R3 ; GET THE ADDRESS OF THE READ 
2c A3 : é3 D1 OF47 2595 CMPL TTYSL-RB_TXT(R3), TTYSL_RB_LINCR3); THIS IS NOT THE ©! 
4 12 F4B 396 BNEQ ;"USE ZERO BASED ORIGIGN. 
6E 3A AS A bree ad ADDW TTYSW_RB_CPZORG(R3), (SP); ELSE USE ORITIONAL ORIGION 
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(67) 


ora 3666 + FOUND THE REFERENCE POINT THEN CONTINUE 
wri +4 CB OFS 601 50s: BICLS #*XOFFFFFFF8,(SP)+,R3  ; GET MOD 8 OF CURSOR 
54 BEDO OF59 260 POPL R4 3 RESTORE R4 
05 OF5C 260 RSB 
OF5D 2604 
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pF70 ptt 
‘ 4 3 CHAR_SIZE 
DESCRIPTION: 
GIVEN A CHARACTER IN R3 THIS 
OF CURSOR POSITIONS THE CHARACTER 


INPUTS: 
R1 = 0 FOR FOWARD CHARACTER SIZE -1 FOR BACKWARD CHARACTER SIZE 
R3 = CHARACTER 
RS = ADDRESS OF THE UCB 


OUTPUTS: 


R3 = THE LENGTH IN CURSOR POSITIONS OF THIS CHARACTER 
R5 = UCB ADDRESS 


ROUTINE WILL DETERMINE THE NUMBER 
WILL TAKE UP. 


APAGKAAAOOSASO 
SS I OOOO 


FUN ("OC OONAUES WN —QOONAUS WA —OOONO 


CHAR_SIZE: 
CA 


SE  W*TTYSA_TYPECR3],LIMIT=#1aTTY$V_CH_SPEC, TYPE=B,<- 
10$,- ; Back space 
20$,- 3 ta 
5$,- ; Linefeed (no action) 
3$,- ; Vtab (no action) 
5$,- 3: form (no action) 


60$> t <CR> 
BITB - #<TTYSM_CH_CTRL!TTYSM_CH_SPEC! TTYSM_CH_CTRL2!TTYSM_CH_CTRL3>,- 
W*TTYSA_TYPELR3I 7 TEST FOR SPECIAL 

; NON SPACING CHARAC 


BNEQ ACTER 
1 #1,R3 ; OTHERWISE ONLY 1 CHARACTER POSITION 


POPOPOPOPINOPOPONOPINONONONY 


i eee lo lolol ololololololololololola) 


PARALLAX AAAAAAAAAAAO 
WAIN WIWIPOPORPoNofoninonon 


MOPIMIPONOPOR TD 


FAAAAOCA OOO 
yt et ee ok nb he he 


CLRL R3 ; CLEAR R3 OUT 
RSB ; AND RETURN 
#1,R3 ; BACKSPACE THEN BACKUP 


o 
a 
MSW —OVONOuU 


Co C9 09 Co 09 C8 SI SINS SINISE SUT UMM MUU A UU UU Unt 
on 
> 


; TAB 
#0,#3,UCBSW_TT_CURSOR(R5),R3; GET HORIZONTAL POINTER 


R1 : IS THIS A BACKWARD CALCULATION 
23$ » NO THEN SUBTRACT 
BACK TA ; CALCULATE THE MOD 8 OF THE CURSOR 
R3,#8,R ; NORMALIZE THE RESULT 

; AND RETURN 


MOVZWL UCBSW_TT_CURSOR(R5),.R3 ; CARRIAGE RETURN SHOULD ZERC CURSOR 
RSB : POSITION 


POPRIPOPIPONIPONMYD = FUROR PONONONOPONY 
SHAOAOAAaS 
PAI OE 
UEWN—OwORe “~ 
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Fp $3 2 ESCAPE TAB 
F9D 838 ; a 
F9D 2660 ; Handle the removal of escape sequencses from a prompt 
ioe 520 ; when deleting tabs. 
OF 9D og :; Implicit inputs: 
OF9D 2564 ; 
OF9D 2665 ; R3 the address of the escape character 
OF 9D 208 Z R5 THE UCB ADDRESS 
OF sp bes 3 4(SP) the internal count 
FOD 2669 : Implicit outputs: 
OF 9D $36 : 
OF9D 2671 ; 4(SP) updsied internal count 
OF9D or¢ 3 ; 
OF9D 2673 ; ALL registers are saved 
aree 674 3<- 
F9D 2675 ESCAPE_TAB: 
51 DD OF9D 2676 PUSHL R1 3 SAVE A SCRATCH REGISTER 
51 08 AE DO OFSF 677 MOV 8(SP),R1 ; RESTORE THE INTERNAL COUNT 
18 BB OFA3 2678 PUSHR #*M<R$,R4> ; SAVE THE REST OF THE REGISTERS 
54 53 DO OFAS 2679 MOVL R3,R 3 MOVE THE CURRENT POSITION TO R4 
53 84 9A OFAB 2680 MOVZBL (R4)+,R3 ; GET THE CHARACTER THAT INTRODUCES !tHE SEQUENCE 
51 DD OFAB et PUSHL R1 3; SAVE R 
F4F3 30 OFAD ons BSBW ESCINIT. 3; INIT THE ESCAPE SEQUENCE RULES 
0103 C5 51 90 OFBO 268 MOVB R1,UCB$B_TT_ESC(R5) err 
51 8ED0 he soee POPL R1 ; RESTORE R1 
51 D7 OFB8 3686 20S: DECL R1 3; DECREMENT THE COUNT 
53 84 9A OFBA 2687 MOVZBL (R4)+,R3 ; GET THE CHARACTER AND MOVE TO THE NEXT 
F4F4 30 OFBD 688 BSBW es 3; CHECK THE SYNTAX 
F6 14 OFCO 2689 BGTR 0$ ; CONTINUE IF NECESSARY 
18 BA OFC2 2690 POPR #*M<R3,R4> 3 SEQUENCE COMPLETE THEN RESTORE THE REGISTERS 
08 AE 51 DO OFC4S 2691 MOVL R1,8(SP) 3; PUT THE COUNT 
51 8EDO OFCB 2692 POPL R1 ; RESTORE THE LAST REGISTER 
05 OFCB 2693 RSB 3; AND NOW RETURN 


04 
00000000°EF 43 
38 
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SA 
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WOWMVIOM FB UNNVO OS DW VWI 9 B SIN EF BW HMOONMOMOAMOAAAOAAWAAOOAOOHOAADOOAAAOAOOOO 
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SEP=1934 


s+¢ 
¢ FIND_BOL - FIND THE BEGINNING OF THIS LINE 


; Description: 


Given a string this routine will find the offset to the character 
oer end up in the first character position of the bottom Line 
° e screen 


; IMPLICIT INPUTS: 


R2 = ADDRESS OF THE UNIT STATE VECTOR 
R4 = ADDRESS OF THE READ BUFFER 

RS = ADDRESS OF THE UCB 

TTYSL_RB_TXT 

TTYSL_RB_LIN 

TTYSL_RB_P 

TTYSL_RB_TXTOFF assumed non-zero 
TTY$SA_RB_ 

TTY$W_RB_LINOFF 

TTY$W_RB_LINREST assumed zero 


IMPLICIT OUTPUTS: 


TTYSL_RB_LIN address of the first character in this Line of data 
TTY$L_RB-LINOFF offset from LIN to the end of the Line 
R3 is destroyed. 


— _BOL: 
IND_BOL_NOCLEAR: 
CLRL Ri 


UCesH TT_CURSOR(RS) ; CLEAN THE CURSOR POSITION 


CLEAN R 

MO TVS RB_TXT(R4), TTYSL Rb. LIN(R) START WITH THE BEGINNING 

PUSHR <RB,R7> ; FEW SCRATCH REGISTER : 
BEGINNING OF 


Ro. CLEA AR R6, THE FSET 
ADDW3 TTYSW_RB_PRMLEN(R4), TTYSW PBL TXTOFF(R4),R7; GET THE ENDING OFFSET 
BBCC #TTYSV_RS_WRAP, TTYS$SW_RB “PARE We Ovi .2108; CLEAR THE WRAP STATE 


210$: CMPW R6,R7 ~ : 
BGEQ 2408 YES THEN ty iy 
MOVZBL TTYSA_RB_PRM(R4)CR6OJ.R3 ; AY tg ACTER 
INCL R move ot HE NEXT CHARACTER 
CMPB #TTYSK_ET_ESCAPE ,TTYSA_ céList R3 
BEQL 250$ Das ESCAPE SEQUENCES 
CMPB #TTYSC_CR,R3 A CR ZEROS CURSOR 
BEQL tre 0 SO 


: SoD 
1ZE ; OTHER WISE GET THECURSOR POSITION 
ADDW 8 atest T‘_CURSOR(RS) : ADD IN THE POSITION 
CMPW © UCBSW_TT—CURSOR(R5) ,UCBSW_DEVBUFSIZ(R5S); IS THIS A WRAP 


2108 ; NO THEN GO oN 
SUBW UCBSW_DEVBUFS1Z(R5) ,UCBSW_TT_CURSOR(R5); SUBTRACT OUT THE 


; LINE LENGTH 
MOVAB = TTYSA_RB_PRM(R4)CR6),R3 ; GET THE ADDRESS OF THE WRAP 


TTDRVR.BUGSRCJTTYCHARO.MAR; ; 
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v04-001 Read service routines ‘ meet F A2:42 : 6 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 ° (3B) 
00 2A AG 101 74 $: BBSS #TTYSV_RS_WRAP TTysu. RB -ROSTATE(RS) 2258; ser uP THE WRAP CHARACTERI 
64 99 ee 1p 28 330s: CMPL = R3_ TTYSL_RB_TXfT (RG PASI THE P OMPT? 
| co 19 | 750 BLSS = 216 3 res Then TINUE 
2C AG DO 10 751 MOVL R3,TTYSL_RB_LIN(R4) 3 THIS fe THE LINE 
BA 11 19 8 3 BRB 216s ; THEN CONTINUE 
534A AGG 9— 1 p 754 230$: MOVAB TTYSA_RB_PRM(R4)(R6],R3 ; GET THE ADDRESS OF THE WRAP 
OOFC C B4 1 755 CLRW YCBSW_TT_CURSOR(RS) : CLEAR CURSOR ON A <CR> 
€5 11 7 28 BRB $ 3 NOW CONTINUE 
1038 5788 
18 £23 : 3 ESCAPE SEQUENCE INTRODUCER 
51 oD 1038 761 550$: PUSHL RI : SAVE R1 
F466 «030 «103A 76¢ BSBwW ESCINIT ; INIT THE SYNTAX RULES 
0103 cS) «6551-90 «103D «276 MOVB R1,UCB$B_TT_ESC(RS) Spee 
51 8ED0 1048 764 POPL R1 ; RESTORE THE REGISTER 
104 3765 260$: 
57 56 B81 1045 2766 CMPW «RO ,R7 3 ARE WE FINISHED 
OF 18 1048 2767 BGEQ 240$ ; YES THEN EXIT 
53 4A A446) «6090 —104A = 2768 MOVB TTYSA _-RB_PRM(R4)CR6],R3 ; GET THE NXT CHARACTER 
56 6 104F 3769 INCL R6 ; MOVE TO THE NEXT CHARACTER 
F460 0 1051 2770 BSBW ESCSYNTAX 3 AND CHECK THE SYNTAX 
EF 14 1054 77) BGTR 260$ ; MORE THEN CONTINUE 
FF8E 31 1056 re BRW 2108 ; NO MORE THEN GO BACK 
53 4A A446) «OE: «1059 $tri 240$: MOVAB TTYSA ARB -PRM(R4)ERGI, R3; GET THE ADDRESS OF THIS CHARACTER 
53 2C AG) «6C2 «(105E «2775 SUBL TTY$L~ N(R4), : GET THE OFFSET 10. THE LAST CHARACTER 
30 a4 = 553)——s«BOSC«d1062 «2776 MOVW RS TPS0n RB_ LINOEF (RG) ; AND LEAVE IT ¢ 
OOCO 8F BA 1066 2777 POPR #*M<R6,R7> RESTORE THE REGISTERS 
05 106A 2778 RSB 
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OODC C5 

QODE C5 

OODc (5) = 84 
oc 

OODC C5 

OODE C5 

OOpc ¢5~—s 51 
00D8 C5 

GOEO C5 

0008 (5) = 54 
F3CD 
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; THE COUNT OF 


; INPUTS 


§ 
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oe 
STRTMULTI = START A MULTIECHO STRING GIVEN THE ADDRESS OF AN ASCIC STRING 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE STARTS THE SPECI 
THE STRING IS PL 
ADDRESS OF THE FIRST CHARACTE 
; THEN STATE MULTI IS SET AND MUL 


UNIT. 
, AND THE 
IN UCBSL_TT_MULTI. 


STRTMULTI_1 = starts a multiecho atetng styen the address and a length 


of a string (address in R4, length in R1) 


R2 = ADDRESS OF THE UNIT STATE VECTOR 
R4 = ADDRESS OF A COUNTED MULTIECHO STRING (ASCIC) 
RS = UCB ADDRESS 
ONTPUTS: 
R2 = ADDRESS OF THE UNIT STATE VECTOR 
R35 = FIRST CHARACTER 
RS = UCB ADDRESS 
R4 DESTROYED 
TRTMULTI:: 
MOVW UCBSW_TT_MULTILEN(R5S) ,UCBSW_TT_SMLTLEN(RS); SAVE LENGTH 
MOVZBW (R4)+,UCBSW_TT_MULTILEN(RS) 3GET THE LENGTH INTO ALILENA 
LOADADR 
STRTIMULTI_1:: 
MOvw UCBSW_TT_MULTILEN(R5S) ,UCBSW_TT_SMLTLEN(RS); SAVE LENGTH 
LOADADR MOV R1,UCBSW_TT_MULTILEN(RS) ; MOVE IN THE NEW LENGTH 
“MOVL UCBSL_TT_MULTI(R5) ,UCBSL_TT_SMLT(R5); SAVE THE ADDRESS 
MOVL R4,UCBSL_TT_MULTI(R5) ; THEN THE ADDRESS INTO MULTI 
SET_STATE <MULTIS sNEXT SET MULTIECHO STATE 
brw multiechoing 
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34 
; TABRIGHT = CHECK FOR A TAB TO THE RIGHT OF THE CURSOR POSITION 


00 P 
TTDRVR.BUGSRCIJTTYCHARO.MAR; 1 


tect a tab character to the right of the cursor 
that inser* mode is illegal. This 
and wrap position for each character. 


_ This routine will 
position and set a flag 
: prevents having to recalculate ta 


RG = Read packet address 


TABRIGHT state pit set if a tab is to the right of the cursor 
ALL registers preserved. 


; SAVE SOME WORKING REGISTERS 
STATE 


; CLEAR THS 
; GET THE OFFSET INTO THE STRING 
@TTYSL_RB_LIN(CR4)(R1); 


TRY TO FIND A TAB 
D T 


G 
TTY$SW_RB_LINOFF (RG) ,R1 
#TTYSC_TAB, TTYSW_RB_LINREST(R4), 


~ 
oO 
Fr 


Ss 
RESTORE THE REGISTERS 
AND RETURN 


PEELE & EMMI nnonononononononofy 
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91 
934 0 TTDRVR.BUGSRCIJTTYCHARO.MAR; 1 (73) 


1084 49 ;+4 
10B4 30 | UPDATE_CURSOR 
10B4 3 
86 3 ! DESCRIPTION: 
10B4 2854 : WILL SETUP THE NECESSARY SEQUENCE OF EVENTS TO HAVE 
1084 38 ; THE CURSOR MVOVED TO THE PLACE SPECIFYED BY TTY$wW_RB_CPZCUR 
84 3? > INPUTS: 
10B4 38 : R? : ADDRESS avi THE UNIT STATE VECTOR 
10B4 2860 : RS = UCB ESS 
10B4 2861 : TTYSW_RB_ CPrCUR = THE FINAL CURSOR POSITION 
10B4 6¢ : UCBSW"TT“CURSOR = THE CURRENT POSITION, 
10B4 2863 ; 
1084 Bes : OUTPUT: 
10B4 2 66 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
10B4 2867 : R4 = ADDRESS OF THE READ PACKET 
10B4 2868 : RS = UCB ADDRESS 
1084 570 > R3 DESTROYED 
1084 5871 UPDATE ~CURSOR: 
54 78 AS 00 192 876 : UCBSL_SVAPTE(RS) ,R4 ; GET THE READ PACKE! ADDRESS 
38 AG) «6A3) «(10B8 (287 SUBUS TTY$W-RB_CPZCUR(R4),- > SUBTRACT THE FINAL CURSOR POSITION 
OOFC CS 1088 87% UCB$W~TT~CURSOR(RS) .= + FROM THE CURRENT CURSOR POSIT'ON 
9100 CS 2 108 875 Pon UCBsM_TT-BSPLEN (RS) > AND ECHO THAT MANY BACKSPACES 
42 aS 4 10¢s 877 re CBS “DEDSUFS IZ (RS) : ARE WE AT THE END OF THE LINE 
gg HIRES eens | EAE IME FEBRTARY SB22°S"onceseace 
i % 1905 i = BEQL * Ye ee : NO BACKSPACES THEN EXIT 
45 4 1 1.4 ; BBC ar T28y ANSICRT ,UCBSL DEVDEPND2(R5),30$; NOT _AN ANSI TERMINAL THEN BR 
3100 te OS 6] 1908 Sb CMPw UCBSW_TT_BSPLEN(RS) > CAN AN WE OPTOMIZE ON AN ANS] TERMINA 
Hs itor $e Bille Fohcro ni nz ns ncnso My MHA OREEUL BRERSPAES 
fF ra $ 
00000000"EF 9A 1061 BBS MOVZBL TTYSA_ANSIBACKUP,Ri : GET THE LENGTH OF THE STRING 
1 10E8 2888 INCL. RI IN THE C 
‘cc wl 8 IDEA att MOVC3 1, TTYSA_ANSIBACKUP, TTY$Q_RB _ECHBAREACRG)» mOVEST ME TOO ARACTER 
i ” 1963 890 STRING IN TO PLACE 
PR  #*M<RO.R1.R2,R3,R4,R5> > RESTORE THE REGISTERS 
rom i Be a Sha Ger penencess iery | Suen ene "TEE 
E C * 3 
F 4 VAB sat te RB~ECHOAREA*6(R4) ,R1 : GET THE ADDRESS OF 1se RISRST BYTE 
oe 3 Hs Boe 10S: EDIV #10, (SP) 7(SP), RS : GET THE FIRST DIGIT 
A R3,-(R1) : PUT IT IN PLACE 
EER Oe | Fe teria vom 10 
Nv : 
bE a8 110¢ 899 TSTL (SP )¢ ; CLEAN THE STACK 
38 a 3 1440 303 MOVY TTY$W_RB_CPZCUR(R4) ,UCBSW_TT _CURSORIRS) UPDATE THE CURSOR POSITION 


$= 


TTYCHARO 
v04-001 
OOFC C5 
54 (OC AG 
FFGE 
EEE2 


dD 2 
- Terminal driver character output routi “YAN N-1 AX/VMS Macro v04-00 TT" 
Read service routines 1982 6 139: § oe 3%, vOé 
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MOVZBW #TTYSK_ER_ UPDCURSOR, TTYS$W_RB roe eee + bel ny EDITREAD STATE 


a STATE EDITREAD ; And s edit read state 
MOV TTY$Q_RB_ECHOAREA(R4) ,R4 : GET THe cho" AREA ADDRESS 

BRw STRTMOLTY ; and start the multiechoing 

zo STATE <BACKSPACE> ; AND START MULTIECHOING BACKSPACES 

BRW GE TNEXTCHAR ; GET THE NEXT CHARACTER 
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++ 
;ZERO_CPZORG = HANDLE CASE WHERE WE NEED A FRESH LINE 
: DESCRIPTION: 
This routine will check and make sure that the origional cursor 


: position becomes zero. This will then callback the routine that called it 
and re-run the operation. 


310 
1 91 
1 16 
11 91 
11 914 
11 915 
1 3318 
1153 5918 | 
1 313 3; Inputs: 
11 $31 : R4 = READ BUFFER ADDRESS 
11 9 : : R5 = UCB ADDRESS 
1 9 33 (SP) = ADDRESS OF A ROUTINE TO CONTINUE WITH 
1123 | 3 5 HERO. CPZORG: 
06 2A AG) «6000~—=C*#ECOD 1 ; : BBS #TTYSV_RS_WRAP, TTYSW_RB_ RDSTATE TE (RG) 5508 5} IF reonnrre THEN 
20 AG 64CO«éisd7 928 CMPL ss TTYSL_RB_TXT(R4),TTYSL Rb _ ryt Ra) DID Ww ve 
07 13 112C 2929 BEQL N' NO SPEEATL MATION 
1404 BE 00 11 930 50$: MOVL  (SP)+,TTYSL_RB AECHSTRORGS; ISETUP A CALLBACK 
F79E «3111 931 BRW CTRLR REFRESH THE [0 
05 1135 2932 60%:  RSB 
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= 
ao 


-sbttl Read passall 


PASS ALL AND NO FILTER HANDELER 


INPUTS: 
R 


~- 
WOODOOOCOOOOOCOOOOOOOOCO000000 
“Hee Se Oe te ee te eee 


PARED AAAI EEE EEE 


¢ = ADDRESS OF THE UNIT STATE VECTOR 
R35 = CHARACTER TO INSERT 

R4 = READ PACKET ADDRESS 

R5 = UCB ADDRESS 


cove TTYSW_RB_TXTOFF(R4).R1 _; GET THE PLACE TO ¢ ne CHARACTER 


ve 3,aTTYSC_RB_TXT(R4SCR1J; PUT THE CHARACTER AW 
IF STATE ESC, 18008 : ESCAPE THE EXIT 
If “NOT STATE PASALL,1900$ + NOFORMAT THEN UPPER CASING MAY BE NECESSAR 


IF “STATE ESCAPE 1045$ . IF ESCAPE MODE THEN EX! 
BBs R3,aTTY$SL_RB_TERM(R4),1500$; IS THIS A TERMINATOR 
INCW  TTY$W_RB_TXTOFF(R4) : NT THE C 


_RB_ ; INCREMENT OUN 
CMPW =—s- TTYSWIRB-TXTOFF(R4) ,TTYSW_RB_TXTSIZ(R4); ARE WE FINSIHED 
BGEQU 1600$ 77"YES THEN FINISH 
IF_STATE <ESC>,1000$ : IS THIS THIS ESCAPE 
: IF PRETYPEAHEAD THEN RETURN 


IF ENOT STATE PRE, 1025S 


wor siats NOECHO,1027$ 
#TT2$V_LO LOCAL ECHO? 


IF 
pet CALECHO,- . 
UCBSL BEVDEPND2(R5),1026$; NO THEN MUST BE NOECHO 
BBS #TRMSO_TM_NOECHO,- ; NOECHO SPECIFYED 
TTYSL_RB_MOD(R4) , 10268 ON THE READ 
BRW FORMAT_LOCAL ELSE LOCAL ECHO IT 
BRW FORMAT” CHAR : FORMAT THE CHARACTER 
IF NOT STATE PRE, 1026$ 
BRW GE TNEXTCHAR 


1045$: BRW 14008 
; CONVERT LOWER TO UPPER IF NOFORMAT 


wm 
NF OOM OV 9D SNM MHA DW NEMO ONIN DS S OWOD NIWT PAAOAPAAOAAAAS 
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ee ee ec ce me ee a ee ee me ee ee ee ee ce ee me me ee ee ee ee ee ed ed ed od 
ce ec ce ce cee ce ce ce ce a ce ee ce ee ce ee ee ce ee et ce ee ee ee ee ce ce el ee ee ee ee ee ee ee ee ee ce ce ee ee el ee ee eed eed eed — 


@2ow>r>rr>r> REISS SSE Tas Re eee ees FSW 


COONAOULS WOOD NOUS wn— 


Se: a ee ee 3 


woowoowowoowonooono owowowowovons 


PIPIPIPSPIPINIPIPININSND —- POPETEPOPUPoPororoerngs 


MOVL UCBSL_IRP(RS).R1 ; GET THE IRP ADDRESS 
BBC #10$V~CVTLOW, [RPSW_FUNC(R1) 


wi 


R_ IF CONVERT LOWER TO UPPER 


10038; 8 
BBC =—_s@TTYSG_CH_LOWER,W*TTYSA_TYPECR3),1005$; BR IF NOT LOWER CHARACTER 


BICW #*x020,R3 ; CONVERT TO UPPER CASE 
MOVZWL  TTYSW Re TXTOFF(R4),R1__; GET THE PLACE TO PUT THIS CHARACTER 
Ove Rs arty C_RB_TXT(R4SCRIJ; PUT THE CHARACTER AWAY 
BRB 1065$ 
MOVL UCBSL_IRP(RS),R1 ; GET THE IRP ADDRESS 
CLRW _IRPSL-MEDIACRI) : SET NO TERMINATOR 
SET STATE EOL : SIGNIFY END OF LINE 
Bst #TIVSV_ST_PRE,4(R2), 10208; CLEAR PRE IF NECESSARY AND EXIT 
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04-001 Read passall. seg Bogen 188e ALES:3§ YAYMS Bacco yOK~00 MARIO (98) Sy 
30 AS =63C AS) SOBO «1182 «2990 15008: mov are eae _RB_TXTOFF(R4), TTYS$W_RB_LINOFF(R4); SETUP LINOFF TT 
66 «11 1188 393 ake" "F, OL SSIGNIFY END OF L tT 
11BD 338 TT 
1180 996 ESCAPE IN PROGRESS " 
51 & aS DO 118D 996 i800s: MOVL UCBSL_IRP(RS).R1 3 GET THE IRP ADDRESS TT 
A Al B6 11C1 299 INCW  IRPSL“MED DiAseiR1) : ADD 1 TO THE SIZ TT 
C AG 86 11¢4 398 INCW  TTYSW"RB_TXTOFF(R4) ; UP_THE OFFSET BECAUSE WE PUT 1 CHAR IN THE TT 
F2e A 0 11C7 299 BSBW F g ATAR ; CHECK THE SYNTAX OF THIS CHA TT 
18 14 11CA 3000 BGTR é ; OK THEN CONTINUE TT 
04 13 11¢¢ 901 BEQL 1810$ ; VALID SEQUENCE CONTINUE Wy 
11C 008 SET_STATE BADESC : A BAD ESCAPE SEQUENCE THEN SAY SO TT 
1103 004 1810$: CLRTSTATE ESC CLEAR THE ESCAPE STAT TT 
3C AS «6 SA AL OA2 SOD 05 SuUBQ ss RPS$L MEDI ACR CRT). TTYSwW ke TXTOFF(R4); SUBTRACT OUT THE SEQUENCE TT 
1106 06 SET_STATE <EOC,NOECH ; CENGTH AND SET END OF LINE v 
0047 31 T1E4 008 1830$: BRW 1450$ : THEN EXIT i 
00000000" EF 48 91 IE? 010 14008: CMPB TTYSA_CCLISTCR3],#TTYSK_ET_ESCAPE; CHECK FOR ESCAPE INTR 1 
5C 12 11EF 3011 bNEQ 14708 ZESCAPE SEQUENCE INTRODUCER TT 
53 7D BF 91 «+11F1 O1¢ CMPB ss #TTYS$C_LOWESC1,R3 is TH IS AN TT 
06 13 1163 01 BEQ. Ss : YES THEN HANDLE SPECAILLY TT 
53 76 BF 91 «+11F7 3014 CMPB ss #TTYS$SC_LOWESC2,R3 ; LOWER ALS TT 
11. 12 #11FB 3015 BNEQ 1420$ ~ NO T N BUST B — AN ESC OR CSI 
4B 44 A507 £0 11FD O16 1410$: 68BS #TTSV_LOWER, UCBSL DEVDEPEND(R3) att $: LOWER CASE TERMINAL 
51 3C C 1202 301 MOVZWL TTYSW"RB TXTOFF(RZ),R1 GET T Loc OCATION OF THIS CHARACTER 
00 8441 18 90 1206 3018 MOVE #TTYSC_ESCAPE ,aTTYSL_RB_ aT eRa) Cat ; AND FORCE wit ESCAPE 
53 9A 1208 019 MOVZBL #TTYSC"ESCAPE.R3 ; AND PUT THE ESCAPE IN 
3C 84 «= BG 120E ~=3020 14208: INCW  TTYSW_RB_TXTOFF(R4) : ESCAPE INTRO THEN SAY SO. 
51 5D 12i1 3021 PUSHL 1 3 SAVE 
F280 30 (1913 038 BSBUCESCINIT 
0103 CS 31 8609 16 023 nove Ri .UCBSB_ TT_ESC(RS) 
121E 3025 SET STATE ESC ; SETUP ESCAPE asia TE 
51 58 AS 00 1 5 0 6 14408: Movl UCBSL JRPCRS) R1 ; GET THE IRP ADDRESS 
38 al 53)=«oBO ss 0 Ve RS, IRPSL MEDIACRI) : SETUP THE TERMINATING CHARACTER 
3A Al B6 41228 «30 8 INCW  IRPSL_MEBIA+2(R1) : AND THE LENGT 
40 a6 3C AG BI 1 : 029 1450$: CMP Li aypeteibine ty TXTSIZ(R4); ARE WE FINSIHED 
1E 1 0 0 BGEGU 460 ;YES THEN TRO 
1235 1 IF _NOT -STATE EOL «1 IF NOT END OF LINE THEN RETURN 
1206 A2 1A £46 1239 6 : BSC. TYSV_Sf thee ¥ R2), 14908 
oc £0 i i5 4 as. este shee Reet Tiemneeus 
OC 20 A4 1244 5 yet ‘ne MOD (R4), wate ; IF NOT ECHOING TERMINATER THEN EXIT 
ray HS SER Game: Gy TeaRe 
FEFB «631 «1240 ’ 123 $: Baw 1040$ 
FFOF eo 4 20 1490$: BRW 1 : $ 
FF26 «31125 40 1495$: BRW 1026$ 


TTYCHARO 
v04-001 


oD 
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~ 
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acter output routi 8-JAN-1985 17:29:5 AX/VMS Macro y04-00 P 
° =3pn7 1382 bo: 98:78 YT TDRVR.BOSSRC TTYCHARO.MAR: 1 >” (8) 


: -SBTTL READ WITH VERIFICATION 
RDVERIFY 
; Seser tet tens 
ead verify allows programs that wish to do character validataion 
te issue one 10 rather than a Q10 per character as was previously the case. 


; Inputs: 


IIPIPIPIPIFINY — =e 


DDD PPPS 


ef = Unit state vector 
R5 = address of the ucb 


; Implicit inputs: 


UCBSL_SVAPTE The address of the read buffer. 
TTYSL_RB_TXT The address of the first character of the initial string 
T Offset to the last character in the initial string 
Length of the data buffer. 
Offset to the end of the field, initial offset. 
The address of the picture string. 


RDVERIFY:: 
MOVL 


54  00E4 cS $L_TT_TYPAHD(RS).R4 ; ADDRESS TYPEAHEAD BUFFER 


PEAS AAAASMMANNVINUNIUIUIVI EE SELL LEE ew. 


SOONG MEW" OOONA UE UNO OONOulur "ec 


$W_TA_INAHD(R4) ; ANY TYPEAHEAD DATA? 
; yes then take it out and continue 


9 008 0 8 68 oN Ne Ne 9 9 9 9 949 8 4 2-7 


ucB 
40$ 
OC a4 TTY 
25 50$ 

! TYPEAHEAD BUFFER EXHAUSTED 
: IF_NOT_STATE <TYPFUL>,35$ ; BR IF TYPEAHEAD IS NOT FULL 


i BRW XON : CONTINUE 


; THE TYPEAHEAD BUFFER HAS NOW BEEN EMPTIED INTO THE SYSTEM BUFFER. 
; IF PROCESSING A READ WITH ZERO SECOND TIMEOUT, RETURN THE DATA 
; TO THE USER IMMEDIATELY. 


BBC #UCBSV_TT_TIMO,UCBSW_DEVSTS(RS).40$; BR JF NOT READ WITH TIMEOUT. 
CMPL =‘ TTYSA_MAXTIME ,UCBSL_TT_RDUE(R5): ZERO SECOND TIMEOUT? 


DAAPMMNMNOS FG DAAOAAAAAPAAPASAAAASAASOSSIAAASAS TH 


PARAS 

Oo 
SOOOGOOOCoOOCoOooooO 
WSO OONOUSWwN— 


bs ee i ae i 


BNEQ 40$ : pr IF NOT. 
MOVW #SS$_TIMEOUT ,.UCBSW_BOFF (RS); SET TIMEOUT COMPLETION STATUS. 
BSBu TTYSREADONE ; COMPLETE REQUEST. 

; DISMISS INTERRUPT 


CLRB UCBS$B_TT_OUTYPE(R5) ; SET NO RETURN CHARACTER. 
RSB 3; and dismiss the interupt 


92 ; 
95 ; ACTUALLY REMOVE CHARACTER FROM BUFFER 


9% : 
95 S0$: MOVZBL @TTYSL_TA_GET(R4),R3_ _: GET THE CHARACTER 


5304 B4 4 
BBCC — #TTYSVIST~ECHAES,4(R2),55$; 1S THIS THE FIRST CHARACTER 


OF 04 A219 


m 
Hh 
1 
1 
1 
1 
1 
1 
1 
' 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


TTYCHARO 
Vv04=001 


54 78 AS 
44 A 09 
FAB? 

OC A4 


04 AS «10 AG 
0118 C4 
04 A4 


50 

54 78 AS 
20 A411 
6 

015¢ 

029¢ 


3 
fat ed 


acter output routi §8-JAN-19 AX/VMS Macro v04-00 7 
. re 1382 gu: €: § TTDRVR.BUGSRCITTYCHARO.MAR; " oe 9) 
nove UCeS SVAPTE (RS) RS GET THE READ PACKET ADDRESS 
weve BW #TTYSR_ER_AESEC nent TTY$wW he MODE(R4); YES THEN ECHO THE AES STRING 
set STATE FRR IREAD 3 ROW DO EDITING 
BRW EDITREA + AND ECHO THE STRING 


oy 
tt Se ss st es) ts st z= 


I 2 


DECW = TTY$W_TA_INAHD(R4) ; ADJUST NUMBER OF TYPEAHEAD CHARACTERS 
FOR BUFFER WRAP AROUND 

AOBLSS TTYSL_TA_END(R4),TTYSL_TA_GET(R4),60$; POINTER PAST END? 

MOVAB TTYSL_TA_DATA(R4) ,TTYSL_TA_GET(R4); RESET POINTER 


PUSHL RO ; charo can not destroy RO 
MOVL UCBSL reyAPTECRs). JR T BUFFER 
IF STATE E F ESCAPE SEQUENCE IN PROGRESS THEN HANDLE 


Bet rTinby 1A A vusT. »TTYSL Rb “MODIRD) =: BRANCH IF LEFT JUSTIFY MODE 
BRw CG JUSTIFY 
BRW ESCAPE_TERM 


18 B441 


.3 
wenn ae 


008F 


OA 20 A408 
0000°CF43 03 


5320 


00 8441 53 


5 
3C AS O5)1 


18 B441 
39 

51 

00 8441 
14 AG 


50. (01 


zi 
m 
> 
=i] 

> 
<3 
te nse 
=—S 
zo 

= 
<7 


MIMGMMMNOOOVIVIIIGIAAHAAAHAOHOHOOOAMAAOO 
NSNRNNMNIN TNS NMUOOO0O09 @ NN NNN NWI 
AWWA A AAWAAAWAANAA AAAI me 


POPOTOPINIPINIPUIRINIPIPINPIPIPIPIPUPIPUAININPINPINIPINPIPONNY 


PT —) — bes bea a a a be a Bs a hla) 
&PPMMMMOoern——mno 


9-494 
PAA AMAAAAMA HWW WIAA AWW 
ee a ee ee ee ee ee ed ed ed ed 


SAAAPAPAAAAAS HVA SLES LES 
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1 
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1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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acter output routi 8=-JAN-1985 17:29:5 AX/VMS Macro v04-00 P 
UtpUt routT See boifects PFTANTS Bocre. TTYCHARO.MARS 1° 7” (39) 


wn< 
be 
ons 
Pig 
=a 
— JS 


zs 
bas ae 


: THIS ROUTINE HANDLES LEFT JUSTIFIED FIELDS 


r ° 


EFT_JUSTIFY: 
MOVZWL TTYSW_RB_LINOFF(R4),R1 


11 
11 
11 
1 
1 
1 
| t 
105 : TERMINATE IF ALREADY FIELD FULL = THIS CAN OCCUR ON A NON AUTOTAB 
126 ; FIELD WHERE WE DEFER ‘FULL FIELD'' COMPLETION UNTIL ONF MORE 
! 3 CHARACTER IS TYPED. CHAR TYPED IS TERMINATOR. 
109 ° CMPW aR, TTYSW_RB_TXTOFF(R4) ; FIELD FULL? 
1 BLSS 5$ ; IF LSS, NOT YET 
. BRW TERM ; YES - INPUT CHAR IS TERM 
1 . 
! ; Check to see if this character is valid in this position 
3 MOVZBL aTTYSL RB_PIC(RG)ER1I,RO : ADDRESS CORRESPONDING PIC VALUE 
13 BITB RO, VERTFY_ARRAYCR3J ; CHAR VALID ? 
3 BNEQ 10$ : YES 
3 BRW TERM > ELSE TERMINATOR 
4 10$: 
42: UPCASE IF REQUESTED. 
: BBC #TRMSV_TM_CVTLOW, TTYSL_RB_MOD(R4),13$; NO CONVERT THEN DON'T 
BBC #TTYSV~CH-LOWER ,W°TTYSA_TYPECR3],13$; is this lower case? 
“— BICB = #*X20,R3 3 yes MAKE LOWERCASE UPPER 
me MOVB = R3, @TTYSL_RB_TXT(R4)CR1) ; STORE INTO READ BUFFER 
" —INCw RT ; POINT TO NEXT POSITION 
CMPW = sR, TTYSW_RB_TXTOFF (R4) 3 FIELD FULL? 
BGEQ  FULL_1 ; YES, WITH SINGLE CHARACTER 


; Check for trailing marker characters to be skipped 


TSTB @TTYSL_RB_PIC(R4)CR1) NEXT POSITION MARKER? 
BNEQ OUTPUT_1 NO, OUTPUT 1 CHARACTER 


DECL RI : POINT TO PREVIOUS POSITION 
MOVAB @TTYSL_RB_TXT(R4)(R1),- : SAVE ADDRESS OF STRING TO OUTPUT 
TTVSL_RB_ECHSTR(RA) 
a MOVZBL #1,R ; INIT COUNT OF CHARACTERS IN STRING 
"o—IntL oR ; POINT TO NEXT POSITION 
CMPU = saR}1, TTYSW_RB_TXTOFF(R4) > FIELD FULL 
BLSS 6-358 : 
BRW FULL_1 > YES, SO DON'T OUTPUT 
lea : TRAILING MARKERS 


SOOWONOUEWN | OVONOULSWN—OVOONA UNFWROCOD NOUSWA—OCVOONOULWNR—OOOo~n 


TSTB @TTYSL_RB_PIC(R4)(R1) ; NEXT SLOT A MARKER 


K 2 
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TTYCHARO - Terminal driver char T 
v04-001 READ WITH VERIFICATION -SEP-19 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 (77) at 
Q 12 1316 3171 BNEQ 45% 3; NO 
0 B86 1 1% INCW RO : COUNT MARKERS 
éB 11 é 123 an BRB 30$ : CONTINUE LOOKING 
0B AS 50 90 1306 3175 = = MOVB-—sRO, TTY$B_RB_ECHLEN(R4) : SAVE STRING LENGTH 
| 176 : BRW oufPuT_s : OUTPUT STRING 
1 128 OUTPUT_S: : OUTPUT A STRING 
30 a6 «51)—iaBO sd 17 VW TTysu, RB LINOFF (R4) > SAVE NEW OFFSE 
1 180 IF_STATE NNGECH HO, B ; NOE HO THEN DON'T ECHO 
32 AG BG 181 CLRW W_RB PTNRE T CHANGE CURSOR POSITION 
44 06 OA 9B 1 18¢ MOVZBW yiteer ER AVEEHO. Rr ysu _RB “move (Rd): OF eTUS TO ECHO 
1 1 SET_STATE EDITREAD a 
18 «11 8 4 BRB~ DONE : THEN ALLOW THE CODE TO FLOW 
1330 31 6 OUTPUT_1: : OUTPUT CHARACTER IN R3 
30 a4 «51)—«BOCO133D «31 MOVW = R1, TTYSW_RB_LINOFF (R4) : SAVE NEW OFFSET 
47 AG 35 9 41 188 CPB RS TTY $B-RB-RVFFIL(R4) : USER TYPE FILLCHAR 
$3 46 AG 90 1347 3190 MOVB  TTYS$B_RB_RVFCLR(R4),R3 : YES = REP W/CLR CHAR 
HB 22 ent 
a tone 1348 138 : IF STATE NOE CHO, DONE ; NO EDCHO THEN DON'T ECHO 
EE39 31 1385 136 BRW FORMAT_CHAR ; FORMAT THE CHARACTER ELSEWISE 
1355 3197 DONE 
50 8EDO 1385 198 POPL RO ; RESTORE RO 
ECAS 31 1358 3199 BRW TTYS$GETNEXTCHAR : AND GET THE NEXT CHARACTER 
1358 300 FULL_1: : FIELD FULL, OUTPUT SINGLE CHARACTE 
1328 8 : IF NOT AUTOTAB, DONT END NOW - LET HIM HIT A CHAR 
SP ne a ee 
DD 135 06 OUTPUT_1 : ECHO LAST CHAR 
30 a4) «= 51—s«BOsC«1360 «3208 MOVW  —_R1, TTYSW_RB_LINOFF (R4) : SAVE NEW OFFSET 
1364 3209 SET STATE EOL > TELL THEN WE ARE DONE 
54 5B AS 00 1368 3210 MOVE UCBSL_IRP(RS),R4 : GET" IRP ADDRES 
38 a4 «04 SO136C) 3211 CLRL RPSL “MEDIACRS) > SIGNAL wo TERMINATOR 
DA 1 ¢f Ie BRB EXIT 
139] 351% TERM 
30 a4 «51=S BO sO«1371:«3215 = ti(‘( ts*é«O TTysu RB_LINOFF (R4) ; SAVE ENDING OFFSET 
1375 16 IF STATE Roe R,3$ SKIP EDITING IF NOFL 
ant 91 9 1 CMPBC#TTYY : Rei? _DELEFT, TTYSA _CCLISTER3); IS THIS A DELETE CHARACTER 
46 13 1381 3218 BEQL DELEFT_JUST ; YES THEN DELETE 
1 3 19 3$: IF NOT_STATE ESCAPE ESCAPE PROCESSING THEN 
0 91 1 20 CMPB ~ #TTYSK_ET PEcthpe, TTY$A _CCLISTER3§; ESCAPE ? 
ene ae 13 1 ? 1 BEQL : YES 
1391 2 4$: SET STATE EOL : SET END OF LINE 
50 58 AS) «60 (1395 5$: MOVE UCBSL_IRP(RS),RO 
8 AO 53 "8 1399 4 MOVZ8W R3,IRPSL_MEDIACRO) : TERMINATOR 
3a a0 «201s («90—s«1390 5 MOVE #1, IRPSL“MEDIA+2(RO) > TERM LENGTH 


wn" 
wn 


w 
oO 
oor NWMNOLMOVUW 


AWE NS OOO 


“i 
oO 


47 AG 
00 8441 
FF39 


te Oe 
So 
wr 


Dee ee ee eeee 


DELEFT -JUST: 
CLR 


o-0 Wwo-090-Cc909 
oN —ONNUIO ONS 


> ® 
wo 


o 
cc a ee ce ee ee ee ce ee ce ee ec ce ee ee ce ce ee ee ee ee ee ee ce ee ee ee ee ee ee 


0 ee ee ee ee at ae te ae Ph ah ab ap abraprap ap abaprahrahapabrah ah a] 
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re 2 b0i%0:48 jesectstyen age 19, 


@SEP-1984 TTDRVR.BUGSRCJTTYCHARO.MAR; 1 
MOVE R1,IRPSL_MEDIA+3(RO) ; OFFSET TO INVALID CHAR 
MOVZWL TTY$W_RB-TXTOFF(R4) ,R1 ; GET THE OFFSET TO THE END 
MOVAB QTTvSc nb, TxT(RGDER1I, TrvSL_.ne_Piceea) ERS Phe END OF THE BUFFER 
MOVE RS -ATTYSL_RB_PIC (RA) ; STORE IN BUFFER 


SIGNAL ESCAPE SEQUENCE ACTIVE 


SET STATE ESC 
PUSAL RI SAVE R1 
BSBWsESCINIT INIT THE ESCAPE SEQUENCE RULES 
MOVB  R1,UCBSB_TT_ESC(RS) nen 

POPL Rt RESTORE R1 


BRB 5$ ; SKIP SETTING END 


; DELETE ONE CHARACTER TO THE LEFT 


R1 = offset into the Line 


LRL : A COUNTER 
DECL R1 3 move left 1 charac 
BLSS 100% + NO CHARACTER TO “DELETE THEN DON'T 
INCL = RO ; MOVE BACK 1 CHARACTER 
TSTB «= @TTYSL_RB_PIC(R4)CR1) : IS THIS E 
BNEQ 20% : NO THEN SHIFT 
DECL RI ; ELSE MOVE OVER IT 
BGEQ 10 : NO NON-MARKER THEN IGNORE THE DEL 
BRW DONE ew 
CMPW = TTYSW_RB_LINOFF(R4), TTYSW_RB_TXTOFF(R4); WERE WE ABOUT TO TERMINATE 
BNEQ 25% 3 NO THEN PROCESS NORMALY 
MOVL #1,R0 ; ELSE ONLY GO BACK 1 PLACE 
3 DUE TO SPECAIL EOF COND IT LONS 
TTY$W Re LINOFF (R4) : UPDATE THE OFFSET 


MOV 
IF STATE RNOEEHONS 
SuBW3 RO, Sceee o _CURSOR(RS) ,TTYSW_RB_CPZCUR(R4); SET THE FINAL CURSOR 


MOV’ RO,UCBSW, TT BSPLEN(RS) ; AND TELL HOW MANY CHARACTERS TO 


: BACKSPACE OV 
A hs <BACKSPACE ,E OTHER STUFF AND RETUR® 


ED] TREAD> THEN OUTPUT 
TTYSL_RB_TXT(R4)CR1),TTYSL_RB_ einen ag GET THE ADDRESS OF WHERE 


MOVB TTY$B_RB_ECHLEN(R4) ; THE LENGTH OF THE STRING TO OUTPUT 
MOV7BW ate ER_RVECHO, TTYSW_RB =MODE (RA) ; SET THE MODE 0 D 
MOVL iTTySu _RB_LINREST (RG : FELL THE MOVE TO RESTORE THE POSIT 


MOVB srves. sn feb toad ete, pa Sur eotetss AND FILL THE BLANK 


; WITH THE FILL CHARACTER 
BRW DONE 


‘ 
ee 


LS - — 
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TTYCHARO - Terminal driver character output routi 8-JAN-1985 17:29:5 AX/VAS Macro v04-00 Page 101 
04-001 READ WITH VERIFICATION Put route ee eee baa; kh PTENTS Gocce. TTYCHARO.MAR: 1° ¢98) 
tore 78 RIGHT_JUSTIFY: 
5130 AG 32 141 0 CVTWL = TTYSW_RB_LINOFF(R4),R1 : GET CURRENT OFFSET 
03 18 14 1 BGEQ «= 38 : IF WE AKE BEOND THE 
14 § ; BOUNDARY THEN TERMINATE 
00BD «(31 14 ? BRW RIGHT_TERM 
50 188441 9A 146 : Bone MOVZBL a@TTY$L_RB_PIC(R4)CR1],RO ; GET PICTURE VALUE 
Op if 142A g BNEQ  ~=5$ : NOT A MARKER 
1 07 142C DECL ~—sR1 t CHECK FOR END 
F518 «14 8 BGEQ 46s«38 : NOT YET 
31 D4 14 9 CLRL ORI 
30 a6 O51 80 14 0 MOVW © R1,TTY$W_RB_LINOFF (R4) : SAVE CURRENT OFFSET 
1 14 6 31 ha BRW FIELD_FUCL : FULL OF MARKERS 
59 93 1439 * 3 ; BITB RO, VERIFY_ARRAYCR3) : IS THIS CHARACTER VALID HERE 
00000000'EF4 1438 
12 1441 3294 BNEQ 108 : OK 
009¢ 31 1468 98 BRW RIGHT_TERM 
1446 3297 : SHIFT DATA IN INPUT FIELD 
1446 : 
1446 3299 jos: 
30 a6 «51~—s«BO 1446 00 MOVW = R1, TTYSW_RB_LINOFF (R4) : SAVE CURRENT OFFSE! 
514 146 0¢ CLRL oR : INIT DESTINATION POINTER 
145C 3304 ; FIND FIRST VALID DESTINATION 
144€ 3305 
144C 3306 208: 
18 B441 95 146¢ 07 TSTB «= @TTYSL_RB_PIC(R4)CR1) ; MARKER? 
0B 12 145 08 BNEQ 30$ : NO, POSITION IS OK 
51 D6 1452 3309 INCL = R'1 : LOOK FOR NEW DESTINATION 
3c AG 5111454 = 3310 CMPW =o}, TTYSW_RB_TXTOFF(R4) : PAST END? 
F2  1F 1458 3311 BLSSU 208 : NO, IT IS STILL OK 
0052 31 «145A 1 BRW FIELD_FULL 
i2ep 3344 208 
145D 3315 ; IF NONCLR CHAR IN LEFTMOST DATA POSITION, FIELD IS ALREADY FULL, MUST 
1690 16 ; BE NON-AUTOTAB. TERMINATE WITH OVERFLOWING CHAR 
00 441 91 1450 18 ° CMPB = @TTYSL_RB_TXT(R4)(R1), TTYSB_RB_RVFFIL(R4);: THIS A CLR CHAR? 
07 «1 1463 3319 BEQL 35% sYES = NOT FULL YET 
3C AG «BO O46 0 MOVW TTYSW_RB_TXTOFF(R4),- [SHOW OVERFLOW OFFSET 
30 A4 1468 1 TTYSW"RB-LINOFF (R4) SIF FIELD FULL 
11 146A é BRB RIGHT~ TERM > AND 
146C 35$: 
51 oD 146¢ 4 PUSHL 1 pSAVE OFFSET TO LEFT BYTE 
50 51 00 146k 6 MOVL _—R1, RO : INIT SOURCE POINTER 
1471 : : FIND NEW SOURCE 
1471 
1471 0 40S: 
50 D6 1471 1 INCL RO 
30 a6 «650)—s«BSCé«d@K 733 2 CMPW = sRO, TTY$W_RB_LINOFF (R4) : PAST END? 


08 
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Q0000'CF43 = 03 
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MAOPOOM SS SNCOVTWWIIID 
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ororsrorrvu™s 
AAA AALAND NAIA AIA AIA AAAI AIA 


acter euteut rout! §- 14Nn 1382 4734936 yaa lyes Macro ¥95 00 fage 196 


r char 
CATION TDRVR.BUGSRCJTTYCHARO.MAR; 
BGTRU 100% : YES THEN SHIFT COMPLETE 
TSTB «= @TTYSL_RB_PIC(R4) CROJ + MARKER? 
BEQL 4 : YES 00K AGAIN 
MOVE a@TTYSL_RB_TXT(R4)CROJ,aTTYSL_RB_fXT(R4)CRIJ; SHIFT THE DATA 
MOVL RO R1 ; OLD SOURCE IS NEW DESTINATION 
BRB 40$ 
; SHIFT COMPLETE 
100$: 
; UPCASE IF REQUESTED. 
: BBC #TRMSV_TM_CVTLOW,- : SKIP IF UPCASE NOT 
TTYS$L_RB_AMOD(R4).105$ ; UESTED 
BBC #TTYSO_CA_LOWER,W*TTYSA_TYPECR3J,105$; is this lower case? 
pei BICB = #*X20,R3 : yes MAKE LOWERCASE UPPER 
MOVB 3, aTTY$L_RB_TXT(R4)CR1) : STORE NEw CHARACTER INTO 
: END POSITION 
POPL RI : GET START POSITION 
CMPB = @TTYSL_RB_TXT(R4)C(R1],TTYSB_RB_RVFCLR(R4);START WITH CLR CHAR? 
BEQL RIGHT_ECHO ZYES = FLD NOT FULL 
BBC #TRMSO_TM_AUTO_TAB,- [FLD FULL = NONAUTOTAB 
TTYS$L_RB_MOD(RZ) ,RIGHT_ECHO : JUST ECHO 
[FLD FULL = AUTOTAB 
: FALL THROUGH 
FIELD_FULL: 
an SET_STATE EOL 
"MOVE «=—s« UCBSL_IRP(RS),R1 : GET IRP ADDRESS 
CLRL —sIRPSLMEDIA(RI) : SIGNAL NO TERMINATOR 
RIGHT_ECHO: 
CLRW _UCBSW_TT_CURSOR(RS) 
IF STATE. NOECAO, GODONE : NO ECHO THEN DON'T ECHO 
CLRW  TTYSW_RB_LINREST(R4) 
MOVZBW #TTYSR_ER_RVECHO,TTY$W_RB_MODE(R4); ECHO THE LINE 
MOVAB TTYSA_RB_PRM(R4) ,TTYSL-RB-ECHSTR(R&); THE ADDRESS OF THE STRING 
ADDB3 TTYSWIRB-PRMLEN(R4) ,TTVSW-RB_LINOFF(R4),-; GET THE LENGTH TO ECHO 
TTY$SB-RB-ECHLEN(R4) veh 
CB sCTTYSB” RB“ ECHLEN(R4) : ACCOUNT FOR ZERO BASE 
SET_STATE EDITREA 
EDITREAD 
-ENABLE LSB 
RIGHT_TERM: 
IF STATE NOFLTR, 3$ - SKIP EDITING IF NOFLTR 
CMPB 0 #TTYSK_ET_DELEFT,TTYSA_CCLISTIR3); 1S THIS A DELETE CHARACTER 
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v04-001 READ WITH VERIFICATION Bon 1382 et oe UT TORVR.BUGSRCSTTYCHARO.MAR: 122" (98) vo 
00000000'EF 43 146€8 
13 14EE ? BEQL §DELRIGHT_JUST ; YES THEN DELETE 
14F : 3$: if NOT_STATE ESCRPE,4$ - ESCAPE PROCESSING THEN 
91 14F4 PR ~ #TTYSK_ET_ESCAPE,TTYSA_CCLISTCR39; ESCAPE ? 
00000000" EF 43 14F6 
13 14FC 3390 BEQL 108 - YES 
7E aS) 3 AG 14F 91 4$: MOV  _TTYSW_RB_TXTOFF(R4) ,UCBSW_BCNT(R5); FILL REQUIRED FIELD 
138 38 ~ SET_STATE <EOC> > SET END OF LINE 
1 SB aS p00 1507 339% MOV UCBSL_IRP(RS).R1 : GET IRP ADDRESS 
8 Al 83 1 98 95 ROV IBY R TRPSL MEDIACRI) : TERMINATOR 
Aal 01 150F MOVB #1, IRPSLMEDIA*2(R1) ; TERM LENGTH 
0 a4 1513 339 MOVE © TTY$w_R68 LINOFF (R4) ,~ 
ar 1 16 98 IRPSL_MEBIA+3(R1) ; OFFSET TO INVALID CHAR 
C AG 3 151 299 MOVZ2WL TTYSWTRB TXTOFF(R4).R1 : GET THE ADDRESS OF THE END 
00 8441 1325 00 MOVAB a@TTYSC_RB_TXT(R4)CRIJ,TTYSL_RB_PIC(R4);OF THE INITIAL STRING 
1884 53 13 401 MOVE = RB ,@TTYSL_RB_PIC(R4) ; AND STORE THE CHARACTER THERE 
FE2C 31 13 : 40¢ GODONE: BRW DONE : THEN EXIT 
1529 3404 ; SIGNAL ESCAPE SEQUENCE ACTIVE 
1529 3405 : 
1529 406 10s: 
1529 340 SET_STATE ESC : ANNOUNCE ESCAPE STATE 
51 p 15 408 PUSAL RI > SAVE R 
€F70 «30 «(15 409 BSBW ss ESSCINIT > INIT THE ESCAPE SEQUENCE RULES 
0103 cS) 519095 410 MOVB R1,UCBSB_TT_ESC(RS) Se 
51 BEDO 13 a i} POPL =e R11. > RESTORE R1 
CA 11 1335 “18 BRa 5$ ; SKIP SETTING END 
183 415 .DISABLE LSB 
153p 416 ; 
153p 3417 : DELETE RIGHT JUSTIFYED 
153p 418 : 
1530 3419 BELRIGHT_JuST: 
50 51 DO 1530 3420 AOVL R1,RO ; GET THE CURRENT LOCATION 
50 D7? 1540 3421 108: DECL 0 : MOVE RIGHT 1 CHARACTER 
12 19 1542 %% : BLSS 208 + ECHO THE LINE 
18 B440 95 1544 %% TSTB «= @TTYSL_RE_PIC(R4)(RO] : THIS A MARKER? 
F6 13 1548 3424 BEQL 163 > YES THEN SKIP JT 
00 B440 90 154A 3425 MOVB @TTYSL_RB_TXT(R4)CROJ,- ; MOVE THE CHARACTER 
00 8441 154€ : 
1351 4 $ @TTYSL_RB_TXT(R4)(R1) 
51 50 pd 1551 3 MOVL RO R1 
fA 11 1356 ‘ BRB 10$ 
47 a4 6-90 1888 430 208 MOVB TTYSB_RB_RVFFIL(RS),- ; MOVE A FILL CHARACTER FROM THE LEFT 
00 8441 1559 3431 aTTY$C RB TxT(R4)(R1) 
FFSB = 331 155C = 3432 BRw RIGHT_ECHO > NOW ECHO THE CHARACTER 
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river char act $3 17:99:38 Gqihed Macro v04-00 

ESCAPE TERMINATOR ROUTINE “SEP-1984 04:16:19 [TTDRVR.BUGSRCJTTYCHARO. MAR; 739 
4 ; .SBTTL READ VERIFY ESCAPE TERMINATOR ROUTINE 

4 $ * DESCRIPTION: 

4 ; CALLED ON ALL THE CHARACTERS FOLLOWING THE ESCAPE 

639 : INPUTS: 

441 ; R2 = UNIT STATE VECTOR 

442 : R4 = ADDRESS OF THE READ BUFFER 

443 ; RS = UCB ADDRESS 

44s > IMPLICIT INPUTS: 

447 : IRPSL_MEDIAS2 = CURRENT OFFSET TO IN THE BUFFER (ACCESSED AS A BYTE) 
448 : TTYSL-RB_PIC = THE ADDRESS OF THE ESCAPE CHARACTER IN THE BUFFER 
449 : 1TY$h RB-TXTSIZ = LENGTH OF THE USERS BUFFER 

451 ESCAPE TERM: 

43¢ MOVL UCBSL_IRP(RS) RO : GET IRP ADDRESS 

433 MOVZBL VRPSe “MEDIA#2(RO) RI > GET CURRENT OFFSET 

455 CMPW sR, TTYSwW_RB_TXTSIZ(R4) ; bo WE HAVE ROOM FOR THIS 
456 BGEQU 3 ¢ =NO THEN TELL THEM ABOUT IT 
45 MOVE @TTYS$L_RB_PIC(R4)(R1) : STORE THE D 

438 INCB TaPae _MEDTA*2(RO) : BUMP TERM PENGTH 

460 BSBW  ESCSYNTAX : PARSE ESCAPE SEQUENCE 

461 BGTR 10% > SEQUENCE OK, CONTINUE 

46¢ BLSS 208 : SEQUENCE ERROR 

464 ; SEQUENCE g COMPLETED NORMALLY 

465 R_STATE ESC ; CLEAR THE ESCAPE STATE THEN 
467 30S: SET_STATE EOL ; SET END OF LINE 

re 10$: 

469 BRw DONE 

471 208 ; ESCAPE SEQ ERROR 

47¢ SET _STATE BADE SC : TELL THE WORLD 

47 BRB 0$ 
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v04-001 End of module ~SEP-1984 04:16:1 TTDRVR.BUGSRCIJTTYCHARO. MAR; 1 (80) 


-SBTTL End of module 


138 sre TT_END: END 
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Symbol tabie g-2pne} 8 bo :9:38 UTTORVR.BUGSRCITTYCHARO.MAR: 107° (88; vo. 
ADJUST_CURSOR vag R FORWARD_CHAR 9 $c R 
H 00 R FULL_1 8 R 
BACKSPACING 4 R GE TNEXTCHAR ® 
BACK_CHAR 96 R GODEL FR 
BACK” TAB 6 FAR GODONE 6R 
BSPACE R GODROP C94 R 
BUF EMPTY 6 12 R GOOuUT 608 R 
BURST 99 99 R INDELST 46 R 
CALLBACK 9 DF R INISBRK eereeeee x 
CARRIAGE (0000212 R INSERT CHAR 578 R 
AR_S OHOOOF SD R INTEXIT 3D R 
CHECR BUFFER 0 2059 R INTEXIT1 § R 
LREC NOD0EOF R 10$M_ TRMNOE CHO s 0 
CLRREST 20006 2R 10$V"-CVTLOW = 08 
CNT = 00000001 10$V—NOE CHO = 0000 906 
COME CHO 00000E17 R 0 10$V~ TRMNOE CHO = 900 o¢ 
CROUTPUT (0000216 R IRPSC_MEDIA = 000000 
CTRLR 0000803 R 0 IRPS$W-FUNC s 9000 29 
CTRLU 0000913 R 0 LEFT JUSTIFY 0001 R 0 
CTRLZ 000002A3 R 0 LFOUTPUT 0000321 R 
CURSOROVRF LOW 90000400 R 0 LINEFEED 0000 ¢ R 0 
CVTLOW 0000654 R 0 LOADADR 0 108 R 9 
DELCHAR 0000 ce 8 0 MOVE CURSOR 0 O06 SR 
DELEFT JUST 00013C9 R 0 MOVEREADATA 900 gp R 9 
DELESCAPE 9000086 ¢ & 0 MOVE _BOL 000C97 R 
DELETE WORD 9000086 R MOVE ~EOL O°N0CE6 R 0 
DELRIGAT_JuST 0000153 R MOVIFNEC Oy .00CA R 0 
DISMISS 00000661 R MUL TIECHOING 0 465 R 0 
DONE 1355 R 9 NORMAL 0D77 R 
DROP 0 Ag R 9620 R 
DROP_CHAR 62 R 0 OPEN 00750 R 
CHLINE 0 4F R 0 OUTPUTANDWAIT EH R 8 
EDIT INGCHAR OE R OUTPUTANDWAIT1 000154 R 
EDITREAD 6R OUTPUT_1 1 R 
EOLSEEN 42 R OUTPUT 1 R 
ESCAPE CC R PASSALC 1 RG 
ESCAPE_CHAR FD R POWERREST R 0 
ESCAPE— 9D R PRMECHO e5¢ R 0 
ESCAPE~ TERM SFR PRMECHO1 R 
ESCINIT A3 RG QUOTE FO R 
ESCINPROG 66 R QUOTING 11. R 
ESCSYNTAX B4 R RDVERIFY 1256 RG 
ESCSYNTAX_O CAR RECALL b} R 
EXESGL_ABSTI eeteenee xX RECALLING 67 R 
EXIT 1348 R RESTART eeeeenee x 
EXITING DD2 R RIGHT_ECH 1 R 
E_SYNTAX D7 RG RIGHT JUSTIFY 1 R 
f = RIGHT-TER 1 R 
FIELD FULL AF R RVECHO R 
FILLIAG 57 R SENDL INEFEED R 
Ff IND_BOL ce R SIMCEOL R 
F IND-BOL_NOCLEAR FDO RG $S$$_ CONTROL s 
FORM CD R SS$~DATAOVERUN s 
FORMAT BD R SS$"NORMAL s 
FORRAT“COCAL FE R STOP NOU ? 56 R 
FORMAT™ ff R STRTAULTI 5B RG 85 
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! ;_Psect synopsis : 


eee ween ooes mend 


PSECT name Allocation PSECT No. Attributes 


es 90000000 ¢ 0.) 00 ¢ 9.) NOPIC USR ¢ XE NORD NOWRT NOVE: BYTE 
$aBss (.0:) OF ¢ 12) NOPIC USR C¢ ME RD RT NOVE® BYTE 
$5$115_DRIVER € (5518:) 02 ¢ 2:) NOPIC USR ¢ XE 
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! Performance indicators ! 


pom eta moon manne eae ee mewn > 


Phase Page faults CPU Time Elapsed Time 


Initialization age sr 96 00:00:00 , cy 

—}_ E processing 986 3 

patos table sort 0: °6 
201: : :01:54.61 


76 
Symbol table output 1 
Psect synopsis output p 
193 


rx 
*eenetektetetee 


eeevee 
=) 


Cross-reference output 
Assembler run totals 


The parking ats yy was 3159 pages. 
00 bytes. (535 pages) of virtual memory were used ee buffer the intermediate sade; 
There were 150 pages of symbol see space 5 ee estiee 2 hold 2535 non-local and local symbols. 
85 tS, rt Ae were read in Pass 1, producin object records in Pass 2. 
2 pages of virtual memory were used to Poetine 9 macros. 


¢vesesseesce ee ne eeereces.-coeae } 


! Macro Library statistics ! 


pws moerae see naa ur mreocree ecomh 


Macro Library name Macros defined 


Riiitrant $ SYS.0B8JJL1B.MLB;1 20 
$255$DUA18: SYSLIBISTARLET. MLB; 3 o 
TOTALS (all Libraries) 29 


2791 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: TTYCHARO/OBJ=OBJ$:TTYCHARO MSRC$: TTYCHARO/UPDATE=(BUGS: TTYCHARO) +EXECMLS/LIB 
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